(let ([name (string-append (hash-ref current-weather 'name))]
          [country (hash-ref (hash-ref current-weather 'sys) 'country)]
          [temp (number->string (exact-round (hash-ref (hash-ref current-weather 'main) 'temp)))]
          [temp-min (number->string (exact-round (hash-ref (hash-ref current-weather 'main) 'temp_min)))]
          [temp-max (number->string (exact-round (hash-ref (hash-ref current-weather 'main) 'temp_max)))]
          [humidity (number->string (hash-ref (hash-ref current-weather 'main) 'humidity))]
          [wind (number->string (hash-ref (hash-ref current-weather 'wind) 'speed))]
          [description (hash-ref (car (hash-ref current-weather 'weather)) 'description)])
      (irc-send-message! conn
                         recipient
                         (if (not (hash-has-key? current-weather 'name))
                           "Location not found."
                           (string-append name ", "
                                          country " | "
                                          "Temperature: " temp "C ("
                                          temp-min "C - "
                                          temp-max"C) "
                                          "Humidity: " humidity "% "
                                          "Wind: " wind "m/s "
                                          "Conditions: " description))))))