(use gauche.lazy)
(use math.prime)

(print (apply + (ltake-while (lambda (x) (< x (read))) *primes*)))