Haskell version of German Enigma Machine