-toWash ((Bold d):xs) = do
- b (toWash d)
- toWash xs
-toWash ((Emph d):xs) = do
- em (toWash d)
- toWash xs
-toWash ((Mono d):xs) = do
- tt (toWash d)
- toWash xs
-toWash ((Underline d):xs) = do
- u (toWash d)
- toWash xs
-toWash ((Strike d):xs) = do
- strike (toWash d)