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