(define mkey
(lambda (key match-result)
(if (symbol? key) (set! key (symbol->string key)))
(if (list? match-result)
(let ((res (map cadr (filter (lambda (x)
(equal? (car x) key))
match-result))))
(flatten res))
#f)))