diff --git a/src/Main.hs b/src/Main.hs
index a3b0dd4..69964fe 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -32,12 +32,16 @@ simpliestEnc :: String -> String
 simpliestEnc input = 
  map (\x -> chr(ord(x) + 1)) input 
 
+simpliestDec :: String -> String
+simpliestDec input =
+  map (\x -> chr(ord(x) - 1)) input
 
 main :: IO ()
 main = do
   putStrLn "Simpliest encoding, just +1 to each letter:"
   print (simpliestEnc "abcdefz")
-  putStrLn "atbash Encryption:"
+  print . simpliestDec $ "bcdefg{"
+  putStrLn "atbash Encryption, changing 1 alphabet to another:"
   print . atbashEnc $ "test"
   print . atbashDec $ ( atbashEnc "test" )