(require "common.scm")

;; 九九のうち、2の段から4の段までを表示
(List.iter
	print_string
	(list-ec (for x 2 4) (for y 1 9)
		(Printf.sprintf "%d * %d = %d\n" x y (* x y))
		)
	)