read

[procedure] read (o x (stdin)) (o eof nil)

(def read ((o x (stdin)) (o eof nil))
  (if (isa x 'string) (readstring1 x eof) (sread x eof)))