(define (main args)
  (let* ([a (read)]
         [b (read)]
         [mem (make-vector 601 #f)])
    (let loop ([x 0]
               [y 0])
      (cond [(> y b) #t]
            [(> x a) (loop 0 (+ y 1))]
            [else (vector-set! mem (+ x (* y 5)) #t)
                  (loop (+ x 1) y)]))
    (vector-set! mem 0 #f)
    (vector-for-each-with-index (lambda (i v) (if v (print i))) mem))
  0)