(define-syntax test
  (syntax-rules ()
    ((_ x)
     (define (string->symbol (string-append "a" (symbol->string x) 0))))))

(test hoge)

(display ahoge)