; Gauche 0.9.2

(use srfi-42)

(print
  (list-ec (: x 2 101) (if (= (length (list-ec (: y 2 x) (if (= (mod x y) 0)) y)) 0)) x)
  )