(import (chicken process-context)) (define (multiple i) (if (< i 0) 0 (+ (mm? i) (multiple (- i 1))))) (define (mm? n) (if (or (zero? (modulo n 3)) (zero? (modulo n 5))) n 0)) (print (multiple (string->number(car(command-line-arguments)))))