display' :: ([Int], Float) -> IO ()
  display' (k, v) = printf "route %s is length %2.2f\n" (show k) v
display' :: ([Int], Float) -> IO ()
display' (k, v) = printf "route %s is length %2.2f\n" (show k) v
display' (k, v) = printf "route %s is length %2.2f\n" (show k) v