module Function:A 'pipe' operator.sig
..end
val (|!) : 'a -> ('a -> 'b) -> 'b
val const : 'a -> 'b -> 'a
val non : ('a -> bool) -> 'a -> bool
val forever : (unit -> unit) -> exn
forever f
runs f ()
until it throws an exception and returns the exception.
This function is useful for read_line loops, etc.val ident : 'a -> 'a