(import (chicken syntax))

(define-syntax macro0
  (syntax-rules ()
    ((_) (macro0 1))
    ((_ 1) (macro0 2))
    ((_ 2) (macro0 3))
    ((_ 3) 'done)))

(print (macro0))
(print (expand (macro0)))
(print (##sys#expand-0 (macro0) (##sys#current-environment) #f))
(print (##sys#expand-0 (macro0) (##sys#current-environment) #t))

done
done
done
done