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)))