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