#lang racket/base

(require "../main.rkt")

;; There is no separate optimizer in js-maker 3.  This demo shows the compact
;; named-let loop output produced directly by the `js` macro.
(module+ main
  (display
   (js (define (factorial n)
         (let loop ([i n] [acc 1])
           (if (<= i 1)
               (return acc)
               (loop (- i 1) (* acc i))))))))