@@ -25,7 +25,7 @@ reprime = map (\c -> if c == '$' then '\'' else c)
25eightyCharLines :: Int -> String -> String
25eightyCharLines :: Int -> String -> String
26eightyCharLines indent message = answer
26eightyCharLines indent message = answer
28− (answer,_,_) = foldl step (replicate (indent-1) ' ', indent-1, "") chunks
28+ (answer,_,_) = foldl step (spaces, indent-1, "") chunks
30 chunks = map (\w -> (w, length w)) (words message)
30 chunks = map (\w -> (w, length w)) (words message)
31 spaces = replicate indent ' '
31 spaces = replicate indent ' '