programming in haskell

2. Rewrite prob2 so it uses do notation. module Basics Where import Control.Monad.State. Lazy 3 4 5 prob1: 6 prob1 - IO [Integer] 7 do putstrLn "prob1" return [1,2,3] 9 10 11 prob2 State Integer Integer 12 13 14 15 prob2 - get - (I x -> put (x + x) >> return 1)