@(define (foo . xs) (bar xs))
@(begin (define (isname) @list{is @foo{@name}})
        (define-syntax-rule (DEF x y) (define x y)))
@(DEF (bar x) (list z " " x))
@(define-syntax-rule (BEG x ...) (begin x ...))
@(BEG (define z "zee"))

My name @isname
@DEF[x]{Foo!}

  ... and to that I say "@x", I think.