fp2/week1/mart/Echo.icl

   1 module Echo
   2
   3 import StdEnv
   4
   5
   6 Start :: *World -> *World
   7 Start world
   8 # (console, world) = stdio world
   9 # (line, console) = freadline console
  10 | not (fend console) = fwrites line
  11 | otherwise = world