 M: station metar cccc>> metar ;
 
 M: string metar
-    "http://weather.noaa.gov/pub/data/observations/metar/stations/%s.TXT"
+    "http://tgftp.nws.noaa.gov/data/observations/metar/stations/%s.TXT"
     sprintf http-get nip ;
 
 GENERIC: metar. ( station -- )

M: station taf cccc>> taf ;

M: string taf
    "http://weather.noaa.gov/pub/data/forecasts/taf/stations/%s.TXT"
    sprintf http-get nip ;

GENERIC: taf. ( station -- )

    ] [ drop f ] if ;

: stations-data ( -- seq )
    URL" http://tgftp.nws.noaa.gov/data/nsd_cccc.txt"
    http-get nip CHAR: ; [ string>csv ] with-delimiter ;

PRIVATE>
