Name: Anonymous 2014-03-27 3:05
Or are you being ironic?
(define (expert x)
(and (bold x)
(italic x)
(underline x)
(overline x)))
(display (expert "Is this Satori?"))main :: IO ()
main = putStrLn . expert $ "Is this Satori?"
where expert = bold . italic . underline . overline