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"