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
こんなことしてる場合じゃないっ(;´Д`)