HaskellCourse/io_cesar.hs

-- Slide 58

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