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