Implement main to call cesar

io_cesar.hs

@@ -5,3 +5,6 @@ import Data.Char
 cechar c = chr ((mod ((ord c) + 13 - ord 'a') ((ord 'z') - ord 'a'  + 1)) + ord 'a')
 
 cesar = map cechar
+
+main::IO ()
+main = getLine >>= putStrLn.cesar