-- -*- M2-comint -*- hash: 30488632710238704

i1 : f = openInOut "!cat"

o1 = !cat

o1 : File

i2 : f << "hi there" << closeOut;

i3 : atEndOfFile f

o3 = false

i4 : peek read f

o4 = "hi there"

i5 : atEndOfFile f

o5 = false

i6 : 
