(defun factorial-iterative ((x integer))
  (let ((result 1))
    (while (!= x 1)
	   (set! result (* result x))
	   (set! x (- x 1))
	   )
    result
    )
  )

;; until we load KERNEL.CGO automatically, we have to do this to
;; make format work correctly.
(define-extern _format function)
(define format _format)

(let ((x 10))
  (format #t "The value of ~D factorial is ~D~%" x (factorial-iterative x))
  )