(let((? (lambda(? ! !?)(map ? ! !?)))(?? (lambda(x y) `(,x ,y)))(! (call/cc(lambda(?)(let((& '(#\W #\H #\O #\R #\E))(af3 #f))(let((! ?))(let((Z '(#\F #\U #\C #\K)))(let((? (lambda(?)(let((!? (let(($ !))(let((! ?))(let((? '(#\S #\L #\U #\T)))(set! $ (append ! ?)))(list->string $)))))(append (string->list !?) ?)))))(let((!? '(#\F #\A #\G))(?! '(#\R #\E #\P #\U #\B #\L #\I #\C #\A #\N)))(let((!? (append(append !? (append Z &))(? ?!))))(set! af3 !?)(! (lambda()(if (eq? af3 '())'()(let((r (car af3)))(set! af3 (cdr af3)) r))))))))))))))(let((? (? ?? `(,(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!),(!))'(1 0 0 1 1 0 1 1 0 0 0 1 0 1 0 0 1 0 0 0 1 1 1 1 0 1 0 1))))?))