struct
    type +'a m = 'a Lwt.t
    
    let return = Lwt.return
      
    let bind = Lwt.( =<< )
      
    let bind_rev = Lwt.( >>= )
      
    let error = Lwt.fail
      
    let catch = Lwt.catch
      
  end