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 = true