let register_start () = if !global_start = -1 then (global_start := (string_id#register_name "start" 0); ignore (type_table#register_type !global_start (Base Message)))