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 String -> String -> String forall a. [a] -> [a] -> [a] ++ String s String -> String -> String 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"