;; Factorial function
(define (factorial n)
  (if (<= n 1)
    1
    (* n (factorial (- n 1)))))

;; Print factorials from 1 to 10
(define (print-factorials n)
  (if (<= n 10)
    (do
      (println n "! = " (factorial n))
      (print-factorials (+ n 1)))))

(print-factorials 1)