fp2/week2/camil/Test.icl

   1 implementation module Test
   2
   3 import StdIOMonad
   4
   5 Start world = doIO (
   6         open "camil.txt" Lees >>=
   7         \_ = open "mart.txt" Schrijf >>=
   8         \_ = readline "camil.txt" >>=
   9         \l = writeline (fromJust l) "mart.txt" >>=
  10         \_ = close "camil.txt" >>=
  11         \_ = close "mart.txt"
  12         ) world