crack :: String -> String
crack xs = encode (-factor) xs
           where factor = head (positions (minimum chitab) chitab)
                 chitab = [chisqr (rotate n table') table | n <- [0..25]]
                 table' = freqs xs
crack :: String -> String
crack xs = encode (-factor) xs
           where factor = head (positions (minimum chitab) chitab)
                 chitab = [chisqr (rotate n table') table | n <- [0..25]]
                 table' = freqs xs
crack xs = encode (-factor) xs
           where factor = head (positions (minimum chitab) chitab)
                 chitab = [chisqr (rotate n table') table | n <- [0..25]]
                 table' = freqs xs