module Cesar where import Data.Char xEnc :: String -> Int -> String xEnc z y = [chr ((ord x + y) `mod` 256) | x <- z] xDec :: String -> Int -> String xDec z y = [chr ((ord x - y) `mod` 256) | x <- z]