diff options
Diffstat (limited to 'fp2/week2/camil/Test.icl')
| -rw-r--r-- | fp2/week2/camil/Test.icl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/fp2/week2/camil/Test.icl b/fp2/week2/camil/Test.icl new file mode 100644 index 0000000..8044d3f --- /dev/null +++ b/fp2/week2/camil/Test.icl @@ -0,0 +1,12 @@ +implementation module Test
+
+import StdIOMonad
+
+Start world = doIO (
+ open "camil.txt" Lees >>=
+ \_ = open "mart.txt" Schrijf >>=
+ \_ = readline "camil.txt" >>=
+ \l = writeline (fromJust l) "mart.txt" >>=
+ \_ = close "camil.txt" >>=
+ \_ = close "mart.txt"
+ ) world
|