let entry_of n = 
  try
    Some(Symtab.lookup n s.symtab)
  with
      Not_found -> None