make example more concise

concat . map (++ "\n") == unlines