let rec assoc (n : string) = function
  |(k,v)::_ when (String.lowercase k) = n -> v
  |(k,_)::t -> assoc n t
  |[] -> raise Not_found