import Control.Monad.Reader
(putStrLn . ap (++) show) "(putStrLn . ap (++) show) "