content: ss =
    concat
      [ "In olden times when wishing still helped one, there lived a king"
      , "whose daughters were all beautiful, but the youngest was so beautiful"
      , "that the sun itself, which has seen so much, was astonished whenever"
      , "it shone in her face.  Close by the king's castle lay a great dark"
      , "forest, and under an old lime-tree in the forest was a well, and when"
      , "the day was very warm, the king's child went out into the forest and"
      , "sat down by the side of the cool fountain, and when she was bored she"
      , "took a golden ball, and threw it up on high and caught it, and this"
      , "ball was her favorite plaything."
      ]
  
  wordwrap maxlen = wrap_ 0 . words
    where
      wrap_ _ [] = "\n"
      wrap_ pos (w:ws)
                -- at line start: put down the word no matter what
        | pos == 0 = w ++ wrap_ (pos + lw) ws
        | pos + lw + 1 > maxlen = '\n' : wrap_ 0 (w : ws)
        | otherwise = ' ' : w ++ wrap_ (pos + lw + 1) ws
        where
          lw = length w
  
  main = mapM_ putStr [wordwrap 72 ss, "\n", wordwrap 32 ss]
  