(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)