(use scheme.list)
(use math.prime)

(define yuki713
  (let* ((n (read)))
        (print (apply + (take-while (lambda (x) (<= x n)) *primes*)))))