;; In Emacs, open this file in -*- Scheme -*- mode

;; Test the "letrec" expression

(letrec ((fact (fun (x) (if (@= 0 x) 1 (@* x (fact (@- x 1)))))))
  (@byte-write (@- (fact 5) 55)))