Chaocipher crack in haskell