type js := t
type t = bool
val t_to_js : t -> js
val t_of_js : js -> t