[update GenUtil.hs
John Meacham <john@repetae.net>**20050811034946] hunk ./GenUtil.hs 2
---  $Id: GenUtil.hs,v 1.42 2005/07/21 09:22:10 john Exp $
+--  $Id: GenUtil.hs,v 1.43 2005/08/09 23:03:20 john Exp $
hunk ./GenUtil.hs 72
+    -- *** Scrambling
+    rot13,
hunk ./GenUtil.hs 109
-import Char(isAlphaNum, isSpace, toLower,  ord)
+import Char(isAlphaNum, isSpace, toLower, ord, chr)
hunk ./GenUtil.hs 357
+
+rot13Char :: Char -> Char
+rot13Char c
+    | c >= 'a' && c <= 'm' || c >= 'A' && c <= 'M' = chr $ ord c + 13
+    | c >= 'n' && c <= 'z' || c >= 'N' && c <= 'Z' = chr $ ord c - 13
+    | otherwise                                    = c
+
+rot13 :: String -> String
+rot13 = map rot13Char