let associativity op = 
  try
    get_assoc (snd builtin_env.(op))
  with Not_found -> NonAssoc