hoge str = putStrLn $ "(" ++ str ++ ")"
fuga = putStrLn . (++) ")" . (++) "("
piyo = putStrLn . flip (++) ")" . (++) "("
(+++) = (((.) (+1)) . (*))
(ppp) = (((.) (+1)) . (*))
xx = putStrLn "xx" >> putStrLn "yy"
yy = do putStrLn "xx"; putStrLn "yy"