(import (chicken fixnum))

(define-compiler-syntax fx+
  (syntax-rules ()
    ((_ a b c r ...) (fx+ a (fx+ b c r ...)))))

(print (fx+ 1 2 3 4))

;; $ csc compiler-syntax.scm && ./compiler-syntax
;; 10