Placerun.get_pqueries pr
      |> List.map (best_placement |- dist &&& Pquery.name)
      |> List.sort ~cmp:(flip compare)
      |> List.enum
      |> (match fvo max_dist with
          | Some max_dist -> Enum.filter (fun (dist, _) -> dist > max_dist)
          | None -> identity)
      |> (match fvo max_reported with
          | Some n -> Enum.take n
          | None -> identity)
      |> Enum.map (fun (dist, name) -> [name; Printf.sprintf "%1.6f" dist])
      |> List.of_enum
      |> self#write_ll_tab