@@ -25,7 +25,7 @@ reprime = map (\c -> if c == '$' then '\'' else c)
2525eightyCharLines :: Int -> String -> String
2626eightyCharLines indent message = answer
2727 where
28− (answer,_,_) = foldl step (replicate (indent-1) ' ', indent-1, "") chunks
28+ (answer,_,_) = foldl step (spaces, indent-1, "") chunks
2929
3030 chunks = map (\w -> (w, length w)) (words message)
3131 spaces = replicate indent ' '