sig
  val null : Json_type.t
  val bool : bool -> Json_type.t
  val int : int -> Json_type.t
  val float : float -> Json_type.t
  val string : string -> Json_type.t
  val objekt : (string * Json_type.t) list -> Json_type.t
  val array : Json_type.t list -> Json_type.t
  val list : ('a -> Json_type.t) -> 'a list -> Json_type.t
  val option : Json_type.t option -> Json_type.t
  val optional : ('a -> Json_type.t) -> 'a option -> Json_type.t
end