Create lesson2.hs

And my 2nd Haskell program. Better than the first.  As is they have to be run through defaultStart (in the interpreter?)

Output 
Cycle: 1  E1 R1 PAINED 0
Cycle: 2  E2 R2 PLEASED 0
Cycle: 3  E2 R2 PLEASED 1
Cycle: 4  E2 R2 PLEASED 2
Cycle: 5  E2 R2 PLEASED 3
Cycle: 6  E2 R2 BORED 4
Cycle: 7  E1 R1 PAINED 0
Cycle: 8  E2 R2 PLEASED 0
Cycle: 9  E2 R2 PLEASED 1
Cycle: 10  E2 R2 PLEASED 2
Cycle: 11  E2 R2 PLEASED 3
Cycle: 12  E2 R2 BORED 4
Cycle: 13  E1 R1 PAINED 0
Cycle: 14  E2 R2 PLEASED 0
Cycle: 15  E2 R2 PLEASED 1
Cycle: 16  E2 R2 PLEASED 2
Cycle: 17  E2 R2 PLEASED 3
Cycle: 18  E2 R2 BORED 4
Cycle: 19  E1 R1 PAINED 0
Cycle: 20  E2 R2 PLEASED 0