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