2

diff --git a/2/s1.icl b/2/s1.icl
index af6361e..48b5f13 100644 (file)
--- a/2/s1.icl
+++ b/2/s1.icl
@@ -4,7 +4,6 @@ import StdEnv
 
 import Data.Func
 import Data.List
-import Data.Tuple
 
 getinput f
 # (ok, c, f) = freadc f

diff --git a/2/s2.icl b/2/s2.icl
index 37febf4..fe363bf 100644 (file)
--- a/2/s2.icl
+++ b/2/s2.icl
@@ -2,6 +2,7 @@ module s2
 
 import StdEnv
 import Data.Func
+import Data.List
 
 getinput :: [Char] *File -> [[Char]]
 getinput a f