nocrypto
type 'a one =
  1. | One of 'a
val cdiv : int -> int -> int
val (&.) : ('b -> 'c) -> ('a -> 'b) -> 'a -> 'c
val id : 'a -> 'a
module Option : sig ... end
module Cs : sig ... end
module Arr : sig ... end
val bracket : init:(unit -> 'a) -> fini:('a -> unit) -> ('a -> 'b) -> 'b