module Sound.MED.Basic.Human where class Human a where human :: a -> String bold :: String -> String bold :: String -> String bold String s = String bold_on forall a. [a] -> [a] -> [a] ++ String s forall a. [a] -> [a] -> [a] ++ String bold_off bold_on, bold_off :: String bold_on :: String bold_on = String "\ESC[1m" bold_off :: String bold_off = String "\ESC[22m"