(define-syntax count-down00 (ir-macro-transformer (lambda (form inject compare?) (let ((data-n (cadr form)) (sp (caddr form)) (body (cdddr form))) (let ((sp-list-rv (list? sp))) (let ((key-word (if sp-list-rv (car sp) sp)) (num (if sp-list…