@@ -360,7 +360,7 @@ execApp' env ctxt f@(EP _ n _) args =
360360 return (EConstant (Str line))
361361 getOp (UN "prim__readString") [EHandle h] =
362362 Just $ do contents <- execIO $ hGetLine h
363− return (EConstant (Str contents))
363+ return (EConstant (Str (contents ++ "\n")))
364364 getOp (UN "prim__shLInt") [EConstant (I i1), EConstant (I i2)] =
365365 primRes I (shiftL i1 i2)
366366 getOp (UN "prim__shRInt") [EConstant (I i1), EConstant (I i2)] =