sig
  val ( |! ) : 'a -> ('a -> 'b) -> 'b
  val const : 'a -> 'b -> 'a
  external ignore : 'a -> unit = "%ignore"
  val non : ('a -> bool) -> 'a -> bool
  val forever : (unit -> unit) -> exn
  external id : 'a -> 'a = "%identity"
  val compose : ('b -> 'c) -> ('a -> 'b) -> 'a -> 'c
  val flip : ('a -> 'b -> 'c) -> 'b -> 'a -> 'c
  val ounit_tests : unit -> OUnit.test
  module Abstract :
    sig
      type 'a t = 'a Extended_fn.Abstract.t
      val fn : ('a -> 'b) -> ('a -> 'b) t
      val app : ('a -> 'b) t -> 'a -> 'b
    end
  val ounit_tests : unit -> OUnit.test
end