let
(>>=) m f = bind m ~f