anchor.diff:                             ~@[Heat Index: ~aF, ~]~
                              ~@[Wind Chill: ~aF, ~]~
                              Humidity: ~a, Pressure: ~ain, ~
  -                           Wind: ~@[~a ~]~a/~a mph"
  +                           Wind: ~@[~a ~]~a~@[/~a~] mph"
                        weather temp-f dewpoint-f
                        (if (string= heat-index-f "NA") nil heat-index-f)
                        (if (string= windchill-f "NA") nil windchill-f)
  
positive.code:                      (unless (and (zerop (parse-number:parse-number wind-kph))
                                    (zerop (parse-number:parse-number wind-gust-kph)))
                         wind-dir)
                       wind-kph wind-gust-kph)
             (reply-to message "Forecast: ~a, High: ~aC, Low: ~aC" forecast high-c low-c)
             (reply-to message "~:{~a starting ~a~%~}" alerts))
            
  
negative.code:                      (unless (and (zerop (parse-number:parse-number wind-mph))
                                    (zerop (parse-number:parse-number wind-gust-mph)))
                         wind-dir)
                       wind-mph
                       (unless (equal wind-mph wind-gust-mph) 
                         wind-gust-mph))
             (reply-to message "Forecast: ~a, High: ~aF, Low: ~aF" forecast high-f low-f)
             (reply-to message "~:{~a starting ~a~%~}" alerts))))
      (weather-error (err)
  