let find_k_nearest t k s x =
  let node_to_point n =
    match n with Node (x1,y,_) -> ((distance x x1),x,y) in                 
  map node_to_point (find_k_nearest_1 t k s x)