3.1 Step 1<br>Create a Haskell script le called crypt.hs and enter the code for he Caesar cipher from<br>Section 5.5 of the text book (Hutton). Make sure you understand how all the functions<br>work.<br><br>3.2 Step 2<br>

Transform your script le (from Step 1) into a Haskell program that reads text from the<br>standard input, encrypts the text using the Caesar cipher, and writes the result to the<br>standard output. Your program should take a command-line argument that species the<br>

shift factor to be used. So, for example:<br>cat poem.txt | ./crypt 3<br>Eqvdqjxlqlqj wkh vnb<br>Hrz khdylob lw glhv<br>Iqwr wkh Whvw dzdb<br>Pdvw wrxfk dqg vljkw dqg vrxqg<br>Nr orqjhu wr eh irxqg<br>Hrz krshohvv xqghujurxqg<br>

Fdoov wkh uhpruvhixo gdb<br><br>If the command-line argument is 0 (zero) then the program should crack the code and<br>output the deciphered text. So, the following command pipeline should echo the original<br>message:<br>

cat poem.txt | ./crypt 3 | ./crypt 0<br>Ensanguining the sky<br>How heavily it dies<br>Into the West away<br>Past touch and sight and sound<br>No longer to be found<br>How hopeless underground<br>Falls the remorseful day<br>