added monad to deepandshallow.hs