Task 1: State Monad 30 pts