From a7d7542dc646a5fd124ef71e71ce260889f1701b Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 2 Feb 2016 19:24:50 +0100
Subject: Moved to 1415 directory

---
 1415/fp2/week2/camil/Test.icl | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 1415/fp2/week2/camil/Test.icl

(limited to '1415/fp2/week2/camil/Test.icl')

diff --git a/1415/fp2/week2/camil/Test.icl b/1415/fp2/week2/camil/Test.icl
new file mode 100644
index 0000000..8044d3f
--- /dev/null
+++ b/1415/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
-- 
cgit v1.2.3