(multiple-value-bind (from-latitude from-longitude) (coordinates place1)
  (multiple-value-bind (to-latitude to-longitude) (coordinates place2)
    (let (distance (great-circle-distance (from-longitude from-latitude to-longitude to-latitude)))
         (format NIL "Distance: ~a km" distance)
         (transport-time distance))))