Hack night run-length compression snippet

gistfile1.hs

module Snippet where

import Data.List

compress :: String -> String
compress = (foldl1 (++)) . (foldl (\acc xs -> acc ++ [(show.length) xs, (head xs):[]]) []) . group

compressions :: String -> [String]
compressions x = let n = compress x in n:compressions n

main :: IO ()
main = let
        nums = reverse $ map length $ take 22 $ compressions "1"
    in
        putStrLn $ (++ "\n" ++ (replicate (foldl1 (max) nums) '_')) $ foldl1 (++) $ intersperse "\n" $ map (\n -> "|" ++ (replicate (n-1) '.') ++ "x") $ nums