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