sig
  val get_option : 'a option -> 'a
  val map_option : ('a -> 'b) -> 'a option -> 'b option
  val pow : int -> int -> int
  val replace : 'a array -> int -> ('a -> 'a) -> unit
  val power_of_two : int -> bool
  val log : int -> int -> int
  val contains : within:string -> string -> bool
  val strip_spaces : string -> string
  val hd_exn : 'a list -> 'a
  val pick : 'a list -> string -> ('a -> string) -> 'a
  val id : 'a -> 'a
  val filter_then_map :
    mapf:('a -> 'b) -> filterf:('a -> bool) -> 'a list -> 'b list
end