content: -- https://www.codewars.com/kata/5390bac347d09b7da40006f6/
  import Data.Char
  
  firstUpper :: String -> String
  firstUpper (c:cs) = toUpper c : cs
  
  toJadenCase :: String -> String
  toJadenCase js = unwords (map firstUpper (words js))
  