module StringManip where

import Data.Char

uppercase, lowercase :: String -> String
uppercase = map toUpper
lowercase = map toLower

capitalise :: String -> String
capitalise x = 
  let capWord (x:xs) = toUpper x : xs
  in unwords (map capWord (words x))

yy :: String -> String
yy a = 
  let capWord (a:b) = toUpper a : b
  in a