Implement the Cesar function

io_cesar.hs

@@ -0,0 +1,7 @@
+-- Slide 58
+
+import Data.Char
+
+cechar c = chr ((mod ((ord c) + 13 - ord 'a') ((ord 'z') - ord 'a'  + 1)) + ord 'a')
+
+cesar = map cechar