trans/haskell.str

@@ -34,7 +34,9 @@ rules
     putStr(d)
     return s
 
-  emit s = getLine
+  emit s = do
+    l <- getLine
+    return (l ++ "\n")
 
   main = do
     [<Preactions>()]return [val]]