Flippety

gistfile1.sh

djent :: ~/try-bin/hs » ./toFive.hs      
 222 
2   2
   2 
 22  
22222

--- le mirror ---

55555
 55  
   5 
5   5
 555 

toFive.hs

#!/usr/bin/env runghc

two = unlines
    [ " 222 "
    , "2   2"
    , "   2 "
    , " 22  "
    , "22222"
    ]

main = mapM_ putStrLn [ two, "--- le mirror ---\n", toFive two ]
    where toFive   = map subNum . unlines . reverse . lines
          subNum x = if x `elem` ['0' .. '9'] then '5' else x