↓この暗号が解けたら初心者卒業と言えるでしょうか？
main = getArgs >>= putStr . flip id "\n" . foldr (.) id . map (showHex . read)

ttp://haskell.g.hatena.ne.jp/nobsun/20060819/ShowS を少し改変