(let ((bin '(01010010 01000101 01000001 01000100                            
             00100000 01010100 01001000 01000101
             00100000 01001000 01010101 01001101
             01000001 01001110 00100000 01001001
             01001110 00100000 01001000 01010101
             01001101 01000001 01001110 01010011)))
  (mapc
    #'(lambda (x)
        (princ
          (code-char
            (read-from-string
              (concatenate 'string "#b"
                (write-to-string x)))))) bin))