Create Shorten.hs

[0r1]

-- Usage replaceWithIO longMessage getShortenedURL replaceWithIO shortMessage getShortenedURL

longMessage :: String longMessage = "However, I would recommend you go to http://blog.mattheworiordan.com/post/13174566389/url-regular-expression-for-links-with-or-without-the to see the working example."

shortMessage :: String shortMessage = "Check https://youtube.com for recipes http://allrecipes.com is also good"