hs-caesar/src/Main.hs

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)