(let ((res nil)
      (width 26)
      (str "gwAQEzx/4IkBACJD/AiQJDok//KpBCCyQ/wgsUKIIJ+VAAQiP8H4")
      ;(str "FJmUBVVVAd3dQFVEIBVRCAAAAAzUrJqlKlWtSt2qcSVa3E1U")
      (table "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"))
(flet ((bs2bin (c) (format nil "~6,'0B" (position c table)))
         (str2numlst (s) (if (eql s #\0) 0 1)))
(setq res (mapcan #'(lambda (x) (map 'list #'str2numlst x)) (map 'list #'bs2bin str)))
(do ((i 0 (+ i width))) ((< (length res) (+ i width)) 2014)
  (format t "~{~[  ~;&&~]~}~%" (subseq res i (+ i width)))
)))