  
(define (ra:get-identity a)
  a)

(define (symbol-append . symbols)
  (string->symbol (apply string-append (map symbol->string symbols))))

(define-expansion (<ra3> command . args)
  (c-display "command:" command   `( ,(symbol-append 'ra: (keyword->symbol command)) ,@args))
  `( ,(symbol-append 'ra: (keyword->symbol command)) ,@args))

(define (start2)
  (<ra3> :get-identity 1))

(start2)

(<ra> :get-box track-fx *current-track-num*)


(define-expansion (exp1 command)
  (c-display "running exp1")
  `,command)

(define-expansion (exp2 command)
  (c-display "running exp2")
  `(,(<_> 'ex 'p1) ,command))

(define (start3)
  (exp2 50))

(start3)


