Main.hs

import Enigma

enigma1 = (SimpleEnigma rotor3 rotor2 rotor1 reflectorB (0,0,25))
plugboard = [('F','T'),('D','U'),('V','A'),('K','W'),('H','Z'),('I','X')] 
enigma2 = (SteckeredEnigma rotor3 rotor2 rotor1 reflectorB (0,0,25) plugboard)
enigma3 = (SteckeredEnigma rotor2 rotor4 rotor3 reflectorB (0,0,25) [('F','X'),('D','M'),('E','A'),('S','T')])
enigma4 = (SteckeredEnigma rotor3 rotor2 rotor1 reflectorB (0,0,25) [('C','R'),('L','N'),('E','P'),('S','I')])


-- NIQVDYIAJGLEOWOAPVFKXAFXNXXSBCNXTCBEBWJQDULHWRGAORIUVFQXCNYORCZIJZRWNUASAFNXAPOXOJQWUCVBCDJGLTXUZZEDPBEZKSRUUFDGTWNAGQUKNUYXHJUTDDOVLJDUVZBRRZHLENTSHCSBQVAAVQBSGXDNWGDQGZXRIUYMPEERAKDWDIUTLOXIVXAJPNYEXOQLHLECWKXAUXOPFWCKMMHDAXJALRENHIOBMREPOZIPOEUZSTCOYBCDGVNYSZKPAIAONPTBCZEZTZOTTKLDRJPLPUIPTJVZWSFCTUHRJFRXSXGOGJCXZVOINGGNMFBIFNJHNEUHHSKRVKOSVOURUYDQLZECVZXTMTVSHZNTBURTBSFXTXNEOVGXDKRSEXSXYGGTRFDJLRJWPYUSJZHVLHTESMOLALVLKODNGJKZRJYGOXOFQJPQJZGHZMOVXCFQWRUHZYMWUSXMWOFAXGEKSBMOVARUTGKCJXFICGFMJLTKXTVGOTPCOSHQGBUYTGPUNHAWGQSXBJHSVHBRHHEPOGRQMSARYFMPTARVHLUQWBGTCJFCEGBBDTIBOIZQQRJUAJMEJJMWFUVYBESQENYXHFEGYQPKOHIBLECZQENPVNWYOPBVDQGDBKDCSPBFBUPLGJNIPLIDPHMAMHSHWGNYIZPNHPVDJTQXMDKAJPMWWQEAMBCLDNWOEHSWHRMBGDAMAGOWWNPOOAPVGRYATMHSEOUFPTOJAQZFNBSAFNVWQUXUOZGQFMUKQYBBVBOVEJNGRPUXZLJTTBQQBEERYDETTXKHRILCUDVZJLZXQNRKJGLMPMDPFYPDITHGZMBLEKNFWPXLANWSHSXCEDUPYDJGTTUKQJFZOPCQOFZWXIGBWFXSDYQUYRDRLWDIJQODWZJBGXJHFLTTVLGHKEMSGXKUZLFSHPGRLUVABFXZZCNQLGQZABBJPLIZYONCASBCFNEMTSPPYSHDHZHGLZGWXZECNUHJXOYMJFGJWYJTSAEYPJHRPAGNUMFAREXVBGDYFZUNYQFKXFMVKOVWLYYYAAAMLQSQFQTUNKKSFXJMJJEJFEKQNDMFJVOLOTFCXFHSTEAIOTEFLXFJRSNHZSQKJMUUZICHFOIMODKSDZMMWXZDLWAOPALTCFHGCZGPERIOHWIAKWRAPHEDUAVREGLQWXOULISLRREVNNHQYGLOZYBFZNLRXSFXIOYZPWRDXZNEFFZQMUUJEORUJWVFIEGXLJGKMBIDBSKHMSUDEGWJQJIAACWFUUDITVJYWHIQIEFPEPDAHRPTGMUOCHZBGQFHWZORDUJIWKZJBZWMXYAKNWZVDBWUMGMTVTQAKISPVNDCWZNPKOBMZDREHWAPAADLRMWCZPAHHNZVKXQVQSGTTZHYCXVPMDCDBCLSSRQUWTUKGLJLFPFJRELPGWHCZQFQEUAGQKBBHJHLBLZXATYGMBFVLUKWRKODYPFMQHXSCLGLCXXXDNILVBBBYQDAPOZFZJPXAMKVTEUOVWEACVSVBCAPTZSRTICENZGTBBCAKAVHCGOHLBTMHWZVOVOFHHSWFVARJGGEFVGJUXZJYGQUQPEJCEYTOPDXSIPMLEOIMGJTTIVSGOHLXSYSYSOOORERCQYQHYHITCJUKYXJTCSHYVEXAMOJHKBOUNIGFIESPTSQMWRGYYGIQSLAERWQTIQSUCMLPIUOXSYWXTCAIPQIAEKYADIDAAGLSKZVCCUSCPWPXXHYBGJFGHKEPADEULODUSHPWFHVHFLLPHAMBQTZXONDTSLVCZKZDBIPOMIXFBLHZFVOICUOFUXLHPLKBYRTDKMATETHKDHCXQRDBFCKFGPXNEIRLAPNUAPOQXI

testEnigma = SimpleEnigma rotor1 rotor2 rotor3 reflectorB (3,9,2)
p1 = "WETTERVORHERSAGEBISKAYA"
x1 = encodeMessage p1 testEnigma

crib1 =    "WETTERVORHERSAGEBISKAYA"
message1 = "RWIVTYRESXBFOGKUHQBAISE"
longestMenuArg = (zip crib1 message1)


p2 =  "THEMAINPROFESSIONALINSTITUTIONFORCOMPUTING"
x2a = "QKPKFNLRTLQHVIGRIKUOEWSXRTIHWIODZORBRQJFZLMAJXKVXBPHROGJSPVIFNQERCRSZATNJXORIKPYEDBMYCLOCTHAZCSFSTGMRJCVICAJDUUETLYLFGJAFQZTDUTVPPYVROVPCGFYZTKWJEAKZZQXQCQUBMKDHYHAVIXKDLHRFCGTAADGJZLTVTWAKXHZNDFVRBUBTLWGBYXSOTVGMPSKCODKAOUCQJPJPEOIMAEMSSNVINMVVLFCMGVQCQOKAEWLVBSRBKTMXRUJOSUTCWRDHDYPHPHNVLEGVHERDSMTEUUQNRNVALCZGKRKXTNDCLLTQHVBOQYMYQMCZEZYBDKQOXRVFZBEUUYMKIYZNBDMVSFXWPUMDMGTCABLEBAPAKFQCXOPWIVDTMTIKCVIRALQKVSLVQHBFOMWRVKOWWJRMCBBQETMFBQBDCIMXMZPFJYNPVDJJFJMYGKHFDLQCYTFBXGQGRVQFKUHJQYTXQPSAJUHLSVKMJOSKRUHLDADOKQQPVEJGPWLNHYJUBDHCVBMMEPAJLUSECKYLCFMVFQLTPBYOHREQMOCDTWUXOGREDIVWJSXKHWJTKUHZHVEIIKGEEVZIMLKLMJAVYCIRWBQCSVXLTJBEXZYDJNTLWTRPNCMJWSPWQUGBUDLWQRUFYMHMNAASAHRMDREKWHTIOVZMBOTDUZHMWSMJNJIJWHEBBVGJKTHHYYCWUMTGJKROEZZKJZQDJUIOUPVIIYZIROQISYALZDHUPYTHYTLOPLFDKQZMBUOCXNOBUGGGCGQMXKUJKUUPFFGAJJIKCZRENJQLHCKTMUDFQKDZYCVGIULRKGUCOBJIGSESZXSCJYWHXGBDYGCHCIFWQYPVMBBHYNLKSZRFVYIFFNYEETKHLNLBGKWBGRIMFOVEIWHRIYQSVADSDKPYDOIKXQTUYRHPXJZFHYUQADBVLVDGMDCGLOORPZQBTVNBAPIJGSMJRHKFKSRSFSUVZDGYCSQFXDMKWKNACWXQOSQUOCJGICHNGRKIAXKQMYWHDFDEEKZJZQDBQCTAXSZYUHXLHMYJ"
x2b = "QKPKFNLRTLQHVEGRIKUOEWSXRTIHWIODZORBRQJSZLMAJXKVXBPHROGJSPVIFNQERGDDANKEGLZLUVCRHOCESEHBSQXQDZZKVMIAABJERUTULCVSZQKEZLTOMSNLIHXKVFTYPLDUNSCPCGRJGMLVOPEMKFKOWWNUAGWGEGOELYJENXUSQICSJULMANOWVWMRSXKUVCKOOILRDQTPLUMTQBMSGYUMZOMILBJRTXFMYQCVXFBTUKHCSVGSYOUICPPEOCHTPVFDMKMSQHZBEUZVIXLIMASEFVINKNDMXFKRVOPGOGWFFTLGSQPOAPENFIWOCPKTDJIBYXBZOACKOSAWUNFVEGDPAMZQMAAAZAKTHTCBOVBPUUJAYDSGJRETBUBYXLKIOSKROZLKUFIMMAMFBUZKFLGCQKJXAYJZPWUZXBGIWZNPYPELVJUSBMGFMKPMJXWOCFWQDTZTRSOBMRKKQGGQZRHVMUACCBQKBVAHOELDNTXXWFHIQOGPOFAGZUJMROBDMSMPUGMNZVSZXXVJFCNWVAMOWPVGPJGMPZHEXKHRIXIFCJMXZCPTTOYJOVNYSVWCXBBKCNVRAGJQWXYIXDAOEBQUZMTUSOBEGLKCLZEULAIBDACUXLXVYRWVQIGWDRYRSQIUUFDJUBPGGDVZHDBYQBMNWSSWLFGXMGANDUWKAWLEIKMOLNNAXKDPHNULCGFTSYYZNCOKZJRPDRYXHIQWAPLVBGQULAZPUIJSCISWPGMMUKEMYFWCKCWXCJOTRZVPFLYADFZWNMBHLZQPUAHYFGGHCCKJSSBTMPUBFWLEWNWJSDYFCKFAVUHDYYGNYADBPTFQMXJZPQTHVSYSLHSTOBWGKDYEPRFNLZJEGOKJMXDZBXRLGTGHOAIDZVTJZSPQAEHKHRBFDLOCDQOAJEYACHXMXFMFYUODNVPIJZNYVIFHZWHRJVQKGTQANDUYZTGRRFQVQMLNJDJAXSTLVIMEPYPHEZMYYKHXGSCZBCRDHXHMEGFCOTHCDVETICYWEDVPXJGJLAAOQLANLGPEUUSIKQMWXNTYHOPEG"
x2c = "QKPKFNLRTLQHVIGRIKUOEWSXRTIHWIODZORBRQJFZLMAJXKVXBPHROGJSPVIFNQERCDDANKEGLZLUVCRHOCESEHBSQXGPBLUZDVKIWNKNPQTBBSRQVBTGFTOMSNLIHXKVFTYPLDUNSCPCGRDGMLVOPEMKFKOWWNUAGWGEGOELKJENXUSQICSJULMANOWVWMRSXKPVCKOOILRDQTPLUMTQBMSGYUMZGMILBJRTXFMYQCVXFBTUKHCSVGIYOUICPPEOCHTPVFDMKMSQHZBEYZVIXLIMASEFVINKNDMXFKRVOPVOGWFFTLGSQPOAPENFIWOCPKTDDIBYXBZOACKOSAWUNFVEGDPAMZWMAAAZAKTHTCBOVBPUUJAYDSGJMETBUBYXLKIOSKROZLKUFIMMAMKBUZKFLGCQKJXAYJZPWUZXBGIWQNPYPELVJUSBMGFMKPMJXWOCFWCDTZTRSOBMRKKQGGQZRHVMUACCIQKBVAHOELDNTXXWFHIQOGPOFAUZUJMROBDMSMPUGMNZVSZXXVJFZNWVAMOWPVGPJGMPZHEXKHRIXINCJMXZCPTTOYJOVNYSVWCXBBKCYVRAGJQWXYIXDAOEBQUZMTUSOBEGLKCLZEULAIBDACUXLXVYRWVQMGWDRYRSQIUUFDJUBPGGDVZHDBKQBMNWSSWLFGXMGANDUWKAWLEIHMOLNNAXKDPHNULCGFTSYYZNCOAZJRPDRYXHIQWAPLVBGQULAZPUTJSCISWPGMMUKEMYFWCKCWXCJOPQDJBPUWVYGDVMQAXAXNACQNRHOGHCCKJSSBTMPUBFWLEWNWJSDYCCKFAVUHDYYGNYADBPTFQMXJZPETHVSYSLHSTOBWGKDYEPRFNLZJEGOKJMXDZBXRLGTGHOAIDZVTJZQPQAEHKHRBFDLOCDQOAJEYACHXRXFMFYUODNVPIJZNYVIFHZWHRJBQKGTQANDUYZTGRRFQVQMLNJDJEXSTLVIMEPYPHEZMYYKHXGSCZBSRDHXHMEGFCOTHCDVETICYWEDVNXJGJLAAOQLANLGPEUUSIKQMWXSTYHOPEG"

{- Function that will print "No result!" if Maybe type contains Nothing, or the
 - contents of the "Just" part otherwise. -}
printMaybe :: (Show a) => Maybe a -> IO ()
printMaybe = maybe (putStrLn "No result!") print

text = "What the fuck did you just fucking say about me, you little bitch? I’ll have you know I graduated top of my class in the Navy Seals, and I’ve been involved in numerous secret raids on Al-Quaeda, and I have over 300 confirmed kills. I am trained in gorilla warfare and I’m the top sniper in the entire US armed forces. You are nothing to me but just another target. I will wipe you the fuck out with precision the likes of which has never been seen before on this Earth, mark my fucking words. You think you can get away with saying that shit to me over the Internet? Think again, fucker. As we speak I am contacting my secret network of spies across the USA and your IP is being traced right now so you better prepare for the storm, maggot. The storm that wipes out the pathetic little thing you call your life. You’re fucking dead, kid. I can be anywhere, anytime, and I can kill you in over seven hundred ways, and that’s just with my bare hands. Not only am I extensively trained in unarmed combat, but I have access to the entire arsenal of the United States Marine Corps and I will use it to its full extent to wipe your miserable ass off the face of the continent, you little shit. If only you could have known what unholy retribution your little “clever” comment was about to bring down upon you, maybe you would have held your fucking tongue. But you couldn’t, you didn’t, and now you’re paying the price, you goddamn idiot. I will shit fury all over you and you will drown in it. You’re fucking dead, kiddo."

example1 = "NIQVDYIAJGLEOWOAPRFKXAFXNXXSBCNXTCBEBWJQDULOWRGAORIUVFQXCNYORCZIJZRWNGASAFNXAPOXOJQWUCVBCDJGLTXHZZEDPBEZKSRUUFDGTWNAGQUKNVMUVAYJJADOXLJQTSSGXLTJJLRAHCSBQVAAVQBSGXDNWGDQGZXRIQYMPEERAKDWDIUTLOXIVXAJPNYSXOQLHLECWKXAUXOPFWCKMMHDAIJALRENHIOBMREPOZIPOEUZSTCIYBCDGVNYSZKPAIAONPTBCZEZTJOTTKLDRJPLPUIPTJVZWSFCTUHZJFRXSXGOGJCXZVOINGGNMFBIFAJHNEUHHSKRVKOSVOURUYDQLZEBVZXTMTVSHZNTBURTBSFXTXNEOMGXDKRSEXSXYGGTRFDJLRJWPYUPJZHVLHTESMOLALVLKODNGJKZRKYGOXOFQJPQJZGHZMOVXCFQWRUMZYMWUSXMWOFAXGEKSBMOVARUTIKCJXFICGFMJLTKXTVGOTPCOSHWGBUYTGPUNHAWGQSXBJHSVHBRHJEPOGRQMSARYFMPTARVHLUQWBGNCJFCEGBBDTIBOIZQQRJUAJMEJTMWFUVYBESQENYXHFEGYQPKOHIRLECZQENPVNWYOPBVDQGDBKDCSMBFBUPLGJNIPLIDPHMAMHSHWGNIIZPNHPVDJTQXMDKAJPMWWQEAMPCLDNWOEHSWHRMBGDAMAGOWWNPNOAPVGRYATMHSEOUFPTOJAQZFNTSAFNVWQUXUOZGQFMUKQYBBVBOGEJNGRPUXZLJTTBQQBEERYDETTVIPEQZJDWRXRKATDZLFTCDJIGYCFYPDITHGZMBLEKNFWPXLANWSHGXCEDUPYDJGTTUKQJFZOPCQOFZNXIGBWFXSDYQUYRDRLWDIJQODWGJBGXJHFLTTVLGHKEMSGXKUZLFQHPGRLUVABFXZZCNQLGQZABBJPTIZYONCASBCFNEMTSPPYSHDHZHQLZGWXZECNUHJXOYMJFGJWYJTSDEYPJHRPAGNUMFAREXVBGDYFZUDYQFKXFMVKOVWLYYYAAAMLQSQFMTUNKKSFXJMJJEJFEKQNDMFJVOWOTFCXFHSTEAIOTEFLXFJRSNHZMQKJMUUZICHFOIMODKSDZMMWXZVLWAOPALTCFHGCZGPERIOHWIAKXRAPHEDUAVREGLQWXOULISLRREUNNHQYGLOZYBFZNLRXSFXIOYZPRRDXZNEFFZQMUUJEORUJWVFIEGLLJGKMBIDBSKHMSUDEGWJQJIAAAWFUUDITVJYWHIQIEFPEPDAHRPZGMUOCHZBGQFHWZORDUJIWKZJBQWMXYAKNWZVDBWUMGMTVTQAKISLVNDCWZNPKOBMZDREHWAPAADLRJWCZPAHHNZVKXQVQSGTTZHYCXVXMDCDBCLSSRQUWTUKGLJLFPFJRQLPGWHCZQFQEUAGQKBBHJHLBLZCATYGMBFVLUKWRKODYPFMQHXSCHMVROEVXYURPPQXWNVHUHSYSQKLAMKVTEUOVWEACVSVBCAPTZSRTZCENZGTBBCAKAVHCGOHLBTMHWZTOVOFHHSWFVARJGGEFVGJUXZJYMQUQPEJCEYTOPDXSIPMLEOIMGJPTIVSGOHLXSYSYSOOORERCQYQHCHITCJUKYXJTCSHYVEXAMOJHKBCUNIGFIESPTSQMWRGYYGIQSLAEPWQTIQSUCMLPIUOXSYWXTCAIPQNAEKYADIDAAGLSKZVCCUSCPWPXGHYBGJFGHKEPADEULODUSHPWFHVHFLLPHAMBQTZXONDTSLVCZKZDAIPOMIXFBLHZFVOICUOFUXLHPLCBYRTDKMATETHKDHCXQRDBFCKFSPXNEIRLAPNUAPOQXI"
example2 = "NIQVDYIAJGLEOWOAPVFKXAFXNXXSBCNXTCBEBWJQDULHWRGAORIUVFQXCNYORCZIJZRWNUASAFNXAPOXOJQWUCVBCDJGLTXUZZEDPBEZKSRUUFDGTWNAGQUKNUYXHJUTDDOVLJDUVZBRRZHLENTSHCSBQVAAVQBSGXDNWGDQGZXRIUYMPEERAKDWDIUTLOXIVXAJPNYEXOQLHLECWKXAUXOPFWCKMMHDAXJALRENHIOBMREPOZIPOEUZSTCOYBCDGVNYSZKPAIAONPTBCZEZTZOTTKLDRJPLPUIPTJVZWSFCTUHRJFRXSXGOGJCXZVOINGGNMFBIFNJHNEUHHSKRVKOSVOURUYDQLZECVZXTMTVSHZNTBURTBSFXTXNEOVGXDKRSEXSXYGGTRFDJLRJWPYUSJZHVLHTESMOLALVLKODNGJKZRJYGOXOFQJPQJZGHZMOVXCFQWRUHZYMWUSXMWOFAXGEKSBMOVARUTGKCJXFICGFMJLTKXTVGOTPCOSHQGBUYTGPUNHAWGQSXBJHSVHBRHHEPOGRQMSARYFMPTARVHLUQWBGTCJFCEGBBDTIBOIZQQRJUAJMEJJMWFUVYBESQENYXHFEGYQPKOHIBLECZQENPVNWYOPBVDQGDBKDCSPBFBUPLGJNIPLIDPHMAMHSHWGNYIZPNHPVDJTQXMDKAJPMWWQEAMBCLDNWOEHSWHRMBGDAMAGOWWNPOOAPVGRYATMHSEOUFPTOJAQZFNBSAFNVWQUXUOZGQFMUKQYBBVBOVEJNGRPUXZLJTTBQQBEERYDETTXKHRILCUDVZJLZXQNRKJGLMPMDPFYPDITHGZMBLEKNFWPXLANWSHSXCEDUPYDJGTTUKQJFZOPCQOFZWXIGBWFXSDYQUYRDRLWDIJQODWZJBGXJHFLTTVLGHKEMSGXKUZLFSHPGRLUVABFXZZCNQLGQZABBJPLIZYONCASBCFNEMTSPPYSHDHZHGLZGWXZECNUHJXOYMJFGJWYJTSAEYPJHRPAGNUMFAREXVBGDYFZUNYQFKXFMVKOVWLYYYAAAMLQSQFQTUNKKSFXJMJJEJFEKQNDMFJVOLOTFCXFHSTEAIOTEFLXFJRSNHZSQKJMUUZICHFOIMODKSDZMMWXZDLWAOPALTCFHGCZGPERIOHWIAKWRAPHEDUAVREGLQWXOULISLRREVNNHQYGLOZYBFZNLRXSFXIOYZPWRDXZNEFFZQMUUJEORUJWVFIEGXLJGKMBIDBSKHMSUDEGWJQJIAACWFUUDITVJYWHIQIEFPEPDAHRPTGMUOCHZBGQFHWZORDUJIWKZJBZWMXYAKNWZVDBWUMGMTVTQAKISPVNDCWZNPKOBMZDREHWAPAADLRMWCZPAHHNZVKXQVQSGTTZHYCXVPMDCDBCLSSRQUWTUKGLJLFPFJRELPGWHCZQFQEUAGQKBBHJHLBLZXATYGMBFVLUKWRKODYPFMQHXSCLGLCXXXDNILVBBBYQDAPOZFZJPXAMKVTEUOVWEACVSVBCAPTZSRTICENZGTBBCAKAVHCGOHLBTMHWZVOVOFHHSWFVARJGGEFVGJUXZJYGQUQPEJCEYTOPDXSIPMLEOIMGJTTIVSGOHLXSYSYSOOORERCQYQHYHITCJUKYXJTCSHYVEXAMOJHKBOUNIGFIESPTSQMWRGYYGIQSLAERWQTIQSUCMLPIUOXSYWXTCAIPQIAEKYADIDAAGLSKZVCCUSCPWPXXHYBGJFGHKEPADEULODUSHPWFHVHFLLPHAMBQTZXONDTSLVCZKZDBIPOMIXFBLHZFVOICUOFUXLHPLKBYRTDKMATETHKDHCXQRDBFCKFGPXNEIRLAPNUAPOQXI"
example3 = "NIQVDYIAJGLEOWOAPVFKXAFXNXXSBCNXTCBEBWJQDULHWRGAORIUVFQXCNYORCZIJZRWNUASAFNXAPOXOJQWUCVBCDJGLTXUXONRSJADWCEMARXAIVWEDJBCTCHDSYDYALZBAVRFGNWFYOJZZMAEECUALWLQXDBUCZBQWITZXRKHOIFPRQOJOFJZQCPFUDDCQEORIBZMMERVNFXOKUCJHHVXKGKOCNEBTQXLSFZODTUMPEMABCBJZVROPOAUFWBEXSXJNAWAOETJXRHGQTUAFRXWKGMGNJVQXWSGOCGEYQHPPNTMJFUHAAMIRVCTUUAZSVZDGDVCFNWHKVVMEWDXVLBXTWWJLZWYCPJNQZXIMTZVHDSNDQGCOUOMWXLEHUNBTBQHSHDZDEDKWAEZWBXVVZCHRJFEQZPMPVWDCXSMCIMFTKEDUISUGEUZWPFGETUBPTIQNDNMHFKUHQNXCDFSFDQOIDXVAZZGCMYYMICVDVTTFFPPRGLOCSTAEVMVMGJNZVDFXTDRIAYFXUQTAKSGNBFPVCJCGKXGBBWTVCOWPCKFFHSUZHWJHTRAOPIXYPNOSEHWRNSVHOCOOMZZLACPVJIFIKJXCFSKMWGZDJQOPZJPALGOXYQJDNNCQALOWUBAFMESIEHXLOQZQSEJFZGPVZPZOBXTTIDNZZANXRMYCRVERMCKCQDAGAMOPCTYEHQRNSUDDQNZPZNZGCZEQYEBQSQLXHIBRGPWCQDNGWSDZOLCRDCIFXHDRQDGOHSITPFKEQQDTTTBWNXFWUQEANYBGYZQSJQVHQXYYYIJMCCVRLLVQJWCEIISIMWWTCVEMYQLYOAWMPPBKLDSDSFLNIDGIYDPKNPWZLFVJBJQSEQGLDZKXZPPLFIWLSAGOEJAUTTMTWQOUFRGZZBMOXOOSRQRCLLPPUPHGVABNNVJZVEDKDSWVLWKXQDXBQMQCRZACNVMQHSVAZLWUYBFTGPQCQXYRJXRWGMEIAJWCYIPKTNBIPQXFQGJXDJKGIJMCSHJPPAIHXKJBUOMMTFJVFMYPMVLGADQLVBURBSHGPSAXRCGCBCCSKUTJLZLXRMDNYBCCEZULVCRIDNXOVTUWEPUTCGIMMMPDQKZTNYXPPCNJIHYSCGDHKNZDFJGFTJZLHFRYCKIDZMHASMSTFEPGHNIJSGRGAAXVEDVQFSVNSOTNIAJHWSJEKHTCOLXGMVNIMJFXMGGLEPFXKIEJZLWBPQLEYRJSHWGGOOGNEGAWQTXSZLCMHFCZSAVRZQMFEBEKCRIDABABBBUMECHXQJRGVLUXOEMQSMHWJXMPBQFGWPCICPFJWQCLUHBXCPXYXFVRCETZTFCNDQXPHTXWUTUGNVWTPXFLPUUGWNCZUCBGNRDPMNFQFDTTHHJHBVXTABELIPMCTISSZZQDMOCJGOUUISVCCOHUOVHQEBNBRMINIYKHWFUUSQSMNWEEFJLGTTRNIDUJRMTUSDKUNCEWGVBXHFEDJBMBSVSAFDHWXEUSZIUSHSQTNJIZWZHLRKZDRCYPIOXNATJVTISPSOAUTOFRNKNIIZXPBTOVFBNAWVICFWCOGEGBFDGYCQGHQMJEZHCDQHZXPJZHVWKJUNPYKHDGLORYDECNXGVMWODFRSTQPOGHAIGHGYHYVVMVKBWWXXPWOGUAMICUQOBQIEEDQELVMVUUPUAPECHMDJHTZEGTVUGVURZHBLSMQVWVMPZBWLZPMDWXUFQOFXRZOQQLKVYTBNCYOIEERFBXSQVZMXWOMMMAUZFJGBELVFUMVLTWGQJAUNQTABNTGGJSVAHXYVGCDFIGLIISVDYOWACALEJLSMQFVSNEHZDEJMCOBQUKQXCUDQFYGM"

{- This is the type of thing that will happen when testing your code. Note
 - that (1) You must have your code in a module called "Enigma". (2) The functions
 - encodeMessage, longestMenu and breakEnigma are expecting arguments in a
 - particular format. Make sure you write your types so that they are compatible.
 -
 - NOTE: The actual contents of the main function when testing your code will be
 - different to this. You SHOULD NOT submit this file, only Enigma.hs.
 -}
main = do
    putStrLn "Message1: "
    print (encodeMessage text enigma1)
    putStrLn "And another test of encodeMessage: "
    print (encodeMessage "MMTEUKDNSKYOYYXFFABDIMLNTNQRFFWEEPCEZKTMAQPSLNNDZAFRMXWFXKWSWOFCBLFDLDCFOFGQETJXMLNISUFKKCAFLGDSLXDZUVQFKSKSEAIJJYPYXOYTNHRTLDJUBZLXKGHROEBSIIJWJLMOVEBZICGWZWJXTVBSVVWGNICLXTNATXGAJIJRQUXBJUNYYWMZEPJSVLGQAVYYWKVEBXAERZSJABKGYVOFUSAPDXPAGIGKLXWPEENIEOQREDYCNOYPVYLFUMZNBGLEMDOIEUNAUEVNJASPENPGSRJXTKSGNRPPYGZFSQXHZPQKCLJUZCFPWWICSXNRZLGZESEHZMLOUQCEMXWEIDDIZPJSYHJBWOBQDDTKUJLZWSZSNNQYYZTYJULUVSXOOHOQSSNNAYUEGPHIQSVKRLBFOQCHPLPQVQSUGDNZYZZBZDYDZLKGCZRPGXUPQRDJAVMHNGJRQWYNLAERYXGXRUZUKSRTOTAMZTEUKHVLDETUUGWLYOZOKYANMJHPEPMZCVGUOAZHZZEGAWZUTAUCXYZEYLCIYHTMGMZSTRTEUVRXWFLPEXCGYQQDBWRJDIWEJRAEFWDDUESCQTEPAFZTSWJQCHOQCUWQFDWZNVTUKJKKBQPSICCXAGFKUZGNTUHVMEKLTQYEIXHTNUKGHGEPBKKGFHIBZFBAIFHQUJHKFMHRRORZPTYMMCLRPVHCYBQVXPNSJLNXUZPSQQKQUCDVWRTQDERQZVSINSCQORFQPMGYLZSJTHIZYKMSAWPVZDWALEPTLCPYBPSKCDEVRSKGCZRHLHZXFZQPNZHSUVRQWLCOAFDRPUDYBFWWMHATGGCFJDABCBXNYEJFSYKQDFIJLLCHOZKQACHGZMYBWAPEFHIGFQFNBZXZSROLUEJSVDJIFAPCDVTIXIEZSGQCBMPFNFKQXEDFHEFCNTNDCDUANMKOHYDCNFRXARBMBVXKDFQSWNODGVBDSJTCUWNIWAFFRZARFBTREKGWPEMVPBYFYLFUAWNIDIWLKLKIQRDMCMKIGVNSZWFLZDMFTEOWQPSDDWECYRAIAWBBTKPODGAEUWROZLVTIRSBFNYOVZUPNJROQYOJTDVZZAJCWLWMPMNEZFGDCQSJQFXJPPUPMIGFVBZFQUMDOBZUWUKKLMLTLARGKNRRJLYXCUCTNZKOLF" enigma1)
    putStrLn "Then a test of longestMenu: "
    print (longestMenu (zip x1 p1))
    putStrLn "Or maybe this is the one you should get: "
    print (longestMenu (zip p1 x1))
    putStrLn "And now SIX tests of breakEnigma:"
    putStrLn "NOTE: All but one of these most likely will return \"No result!\" after a very long search."
    putStrLn "You should get a result for at least one of them though."
    printMaybe (breakEnigma (zip p2 x2a))
    printMaybe (breakEnigma (zip p2 x2b))
    printMaybe (breakEnigma (zip p2 x2c))
    printMaybe (breakEnigma (zip x2a p2))
    printMaybe (breakEnigma (zip x2b p2))
    printMaybe (breakEnigma (zip x2c p2))