let zone = function
  | Location tset,_from -> terms tset.it_content
  | Nothing,_from -> []