sig val jsmarshal : 'a -> string val fresh_id : unit -> string end