fp2/week2/camil/Test.icl


1
2
3
4
5
6
7
8
9
10
11
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