initial checkin from subversion

stringManip.hs

@@ -0,0 +1,18 @@
+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
+