(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)))))

(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)))))