let get_assoc l x = let rec get_rec ll = match ll with | [] -> raise Not_found | (u,v)::c -> if (u=x) then v else get_rec c in get_rec !l