Added first task of Haskell day 3

Surprisingly easy, these monads