(load-option 'format)

(define table99
  (lambda ()
    (do ((i 2 (+ i 1)))
      ((eq? i 10))
      (do ((j 1 (+ j 1)))
	((eq? j 10))
	(format #t "~A * ~A = ~A~%" i j (* i j))))))