module Main where
import Caesar
-- Incredible!
main :: IO ()
main = do
let t = "I like strawberries!"
putStrLn t
putStrLn $ encode 3 t
putStrLn $ id' 3 t
id' n = (decode n) . (encode n)
