{-
  rot13 in Haskell
  Teknovore <tek@wiw.org> 2000
 -}

module Main where

import IO
import Char

rot13Char x | (ord 'a' <= ord(toLower x)) &&
	      (ord(toLower x) <= ord 'm') = chr(ord x+13)
            | (ord 'n' <= ord(toLower x)) &&
	      (ord(toLower x) <= ord 'z') = chr(ord x-13)
            | otherwise                   = x

main :: IO ()
main = interact (map rot13Char)

-- EOF rot13.hs