(define (nabeatsu max)
(define (include3 n)
(cond ((= n 0) #f)
((= (modulo n 10) 3) #t)
(else (include3 (quotient n 10)))))
(define (loop n)
(if (> n max)
#t
(begin (display (format "~s:" n))
(if (or (= (modulo n 3) 0)
(include3 n)) (display 'aho))
(if (= (modulo n 5) 0) (display 'wan))
(newline)
(loop (+ n 1)))))
(loop 1))
(nabeatsu 40)