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