let fetch_and_create_state name =
  Hashtbl.remove prefetched_states name ;
  try
    Hashtbl.find observed_states name
  with
    Not_found -> 
      let s = Data_for_aorai.new_state name in
      Hashtbl.add observed_states name s; s