toTitle :: String -> String
toTitle s = Re.replaceMap " ([a-z])" (toHuman s) f
    where
        f ps = " " ++ (map C.toUpper $ ps!!1)
toTitle :: String -> String
toTitle s = Re.replaceMap " ([a-z])" (toHuman s) f
    where
        f ps = " " ++ (map C.toUpper $ ps!!1)
toTitle s = Re.replaceMap " ([a-z])" (toHuman s) f
    where
        f ps = " " ++ (map C.toUpper $ ps!!1)