sig
type 'a m
val ( >> ) :
'a AAC_search_monad.m ->
('a -> 'b AAC_search_monad.m) -> 'b AAC_search_monad.m
val return : 'a -> 'a AAC_search_monad.m
val ( >>| ) :
'a AAC_search_monad.m -> 'a AAC_search_monad.m -> 'a AAC_search_monad.m
val fail : unit -> 'a AAC_search_monad.m
val fold : ('a -> 'b -> 'b) -> 'a AAC_search_monad.m -> 'b -> 'b
val sprint : ('a -> string) -> 'a AAC_search_monad.m -> string
val count : 'a AAC_search_monad.m -> int
val choose : 'a AAC_search_monad.m -> 'a option
val to_list : 'a AAC_search_monad.m -> 'a list
val sort :
('a -> 'a -> int) -> 'a AAC_search_monad.m -> 'a AAC_search_monad.m
val is_empty : 'a AAC_search_monad.m -> bool
end