; How do I implement the following macro in R5RS?
;
; (define! x)
; ==> (define x "x")
;     (define x "x!")

(define-syntax define!
  (syntax-rules ()
    [(_ name)
     (define name (symbol->string 'name))
     (define ... ...)]))