(define stations
  (list "Cottbus" "Spremberg" "Weisswasser" "Horka" "Görlitz"))

; The number of minute in between stations
(define minutes
  (list 22 12 26 18))

; Accumulated number of seconds
(define (accumulate-seconds lst)
  (accumulate-list-helper lst 0 '()))

(define (accumulate-list-helper lst sum-until-now res)
  (cond ((null? lst) (reverse res))
        (else (accumulate-list-helper (cdr lst) (+ sum-until-now (car lst)) (cons (+ (car lst) sum-until-now) res))))) 

; Nice rendering of the time of second count (like (current-time)).
; Example result "22:46"
(define (actual-hour-minute sc)
 (let ((dt (time-decode sc)))
  (string-append 
     (as-string (hour-of-time dt))
     ":"
     (if (< (minute-of-time dt) 10) "0" "")
     (as-string (minute-of-time dt)))))