Yet Another Haskell Hacker

yahh =  (putChar `mapM_`) =<< return (foldr (++) (map pred "\v") $
        (concat.transpose.((flip(map) [id,((flip(replicate) " ").length)]).
        (flip($)))) $flip (.) (words. map succ) (map (\xs ->
          toUpper(((head.head.tails)xs)):tail(xs)) ) $
         "xds\US`mnsgdq\USg`rjdkk\USg`bjdq\t")


*Main> yahh
Yet Another Haskell Hacker 

こんなことしてる場合じゃないっ(;´Д`)