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