(define tags '(a b c))

(define (arrange . keys)
  (let loop ((tags tags))
    (if (null? tags)
        '()
         (cons (get-keyword (car tags) keys) (loop (cdr tags))))))