Add put functions for ease of use

Mock.hs

@@ -18,3 +18,9 @@ mockRandom :: String -> IO String
 mockRandom str = do
     time <- fmap round getPOSIXTime
     return $ toUpperBy str $ randoms $ mkStdGen time
+
+putMockAlternate :: String -> IO ()
+putMockAlternate = putStrLn . mockAlternate
+
+putMockRandom :: String -> IO ()
+putMockRandom str = mockRandom str >>= putStrLn

README.md

@@ -3,9 +3,9 @@
 GrEAt HAskeLL SCriPt to trANsForm tEXT inTo mockinG cASe
 
 ```
-ghci> mockRandom "Ich mag Kääääsebrot" >>= putStrLn
+ghci> putMockRandom "Ich mag Kääääsebrot"
 IcH mAg KÄääÄSEBroT
-ghci> putStrLn $ mockAlternate "Ich mag Kääääsebrot"
+ghci> putMockAlternate "Ich mag Kääääsebrot"
 ICh mAg KÄäÄäSeBrOt
 ```