(define (get-blue lst)
  (define (bd lst mask)
    (if (null? lst) 0
        (logior (if (= (logand mask (car lst)) mask) mask 0)
                (bd (cdr lst) (ash mask 1)))))
  (bd lst 1))
 
(define (get-red lst)
  (define (rd lst mask)
    (if (null? lst) 0
        (logior (if (= (logand mask (car lst)) mask) mask 0)
                (rd (cdr lst) (if (< mask 32) (ash mask 1) 1)))))
  (let ((p (rd lst 8)))
    (logior (ash (logand p 7) 3)
            (ash p -3))))
 
(define (nth str n)
  (if (zero? n) (car str)
      (nth (cdr str) (- n 1))))
 
(define (read-strings n)
  (if (zero? n) '()
      (let ((str (map char->integer
                   (string->list (let ((cnd (read)))
                                   ((if (number? cnd) number->string symbol->string) cnd))))))
        (cons (get-blue str) (cons (get-red str) (read-strings (- n 1)))))))
 
(define (decode data codeline)
  (if (null? data) '()
      (begin (display (nth codeline (car data)))
             (decode (cdr data) codeline))))
 
(define (read-test)
  (let ((data (read-strings (read)))
        (codeline (string->list (symbol->string (read)))))
    (decode data codeline)))
 
(define (read-tests n)
  (if (zero? n) '() (begin (read-test) (newline) (read-tests (- n 1)))))
 
((lambda () (read-tests (read))))
 
(exit)
 

KGRlZmluZSAoZ2V0LWJsdWUgbHN0KQogIChkZWZpbmUgKGJkIGxzdCBtYXNrKQogICAgKGlmIChudWxsPyBsc3QpIDAKICAgICAgICAobG9naW9yIChpZiAoPSAobG9nYW5kIG1hc2sgKGNhciBsc3QpKSBtYXNrKSBtYXNrIDApCiAgICAgICAgICAgICAgICAoYmQgKGNkciBsc3QpIChhc2ggbWFzayAxKSkpKSkKICAoYmQgbHN0IDEpKQoKKGRlZmluZSAoZ2V0LXJlZCBsc3QpCiAgKGRlZmluZSAocmQgbHN0IG1hc2spCiAgICAoaWYgKG51bGw/IGxzdCkgMAogICAgICAgIChsb2dpb3IgKGlmICg9IChsb2dhbmQgbWFzayAoY2FyIGxzdCkpIG1hc2spIG1hc2sgMCkKICAgICAgICAgICAgICAgIChyZCAoY2RyIGxzdCkgKGlmICg8IG1hc2sgMzIpIChhc2ggbWFzayAxKSAxKSkpKSkKICAobGV0ICgocCAocmQgbHN0IDgpKSkKICAgIChsb2dpb3IgKGFzaCAobG9nYW5kIHAgNykgMykKICAgICAgICAgICAgKGFzaCBwIC0zKSkpKQoKKGRlZmluZSAobnRoIHN0ciBuKQogIChpZiAoemVybz8gbikgKGNhciBzdHIpCiAgICAgIChudGggKGNkciBzdHIpICgtIG4gMSkpKSkKCihkZWZpbmUgKHJlYWQtc3RyaW5ncyBuKQogIChpZiAoemVybz8gbikgJygpCiAgICAgIChsZXQgKChzdHIgKG1hcCBjaGFyLT5pbnRlZ2VyCiAgICAgICAgICAgICAgICAgICAoc3RyaW5nLT5saXN0IChsZXQgKChjbmQgKHJlYWQpKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoKGlmIChudW1iZXI/IGNuZCkgbnVtYmVyLT5zdHJpbmcgc3ltYm9sLT5zdHJpbmcpIGNuZCkpKSkpKQogICAgICAgIChjb25zIChnZXQtYmx1ZSBzdHIpIChjb25zIChnZXQtcmVkIHN0cikgKHJlYWQtc3RyaW5ncyAoLSBuIDEpKSkpKSkpCgooZGVmaW5lIChkZWNvZGUgZGF0YSBjb2RlbGluZSkKICAoaWYgKG51bGw/IGRhdGEpICcoKQogICAgICAoYmVnaW4gKGRpc3BsYXkgKG50aCBjb2RlbGluZSAoY2FyIGRhdGEpKSkKICAgICAgICAgICAgIChkZWNvZGUgKGNkciBkYXRhKSBjb2RlbGluZSkpKSkKCihkZWZpbmUgKHJlYWQtdGVzdCkKICAobGV0ICgoZGF0YSAocmVhZC1zdHJpbmdzIChyZWFkKSkpCiAgICAgICAgKGNvZGVsaW5lIChzdHJpbmctPmxpc3QgKHN5bWJvbC0+c3RyaW5nIChyZWFkKSkpKSkKICAgIChkZWNvZGUgZGF0YSBjb2RlbGluZSkpKQoKKGRlZmluZSAocmVhZC10ZXN0cyBuKQogIChpZiAoemVybz8gbikgJygpIChiZWdpbiAocmVhZC10ZXN0KSAobmV3bGluZSkgKHJlYWQtdGVzdHMgKC0gbiAxKSkpKSkKCigobGFtYmRhICgpIChyZWFkLXRlc3RzIChyZWFkKSkpKQoKKGV4aXQpCg==

MgoyCnF3ZTM0NSByZjNBcmcKWFNCU1Jhc2Rldzk4NzM0NjVoa2xkc2ZzYWxuZGZ2bmZxNDg5dXFvdmtMS0pIYWVEYWFlNTU1U2s1YXNkcEFTRAoKMwoyUzRKNUsgMTExMTExIGxydGIyQQppc2ltZ3NvdzQ1aXBmZ2lzZDU2d2ZnbmdkZmNka2djN2tLS0trdXVKSmdmc3RkeWdRZFdPUlFBREZTTEtGMks4Cg==

2
2
qwe345 rf3Arg
XSBSRasdew9873465hkldsfsalndfvnfq489uqovkLKJHaeDaae555Sk5asdpASD

3
2S4J5K 111111 lrtb2A
isimgsow45ipfgisd56wfgngdfcdkgc7kKKKkuuJJgfstdygQdWORQADFSLKF2K8