[Haskell] Second Monad.Reader #20 call for copy