module type ListMonad = sig .. end
sig
end
include GapiMonad.Monad
val mzero : 'a t
'a t
val mplus : 'a t -> 'a t -> 'a t
'a t -> 'a t -> 'a t
val guard : bool -> unit t
bool -> unit t