(off R)
(in "weather_stations.csv"
   (until (eof)
      (skip "#")
      (let (A (prog1 (till ";" T) (char))  B (format (line T) 4))
         (ifn (idx 'R A T)
            (set A (list 1 B B B))
            (let Lst (val (car @))
               (inc Lst)
               (when (< B (get Lst 2)) (put Lst 2 B))
               (when (> B (get Lst 4)) (put Lst 4 B))
               (put Lst 3 (+ B (get Lst 3))) ) ) ) ) )
(msg 'ok)
(bye)