Result

WA

Code [DL]

:for i in range(1,50)
"ad$
let l=@a
let @a=!(float2nr(sqrt(1+64*(l[0]*16+l[1]*8+l[2]*4+l[3]*2+l[4])+l[5]*32+l[6]*16+l[7]*8)*99)%99)
"aP
endfor
ZZ

Disassembly

:for i in range(1,50)<NL>"ad$<NL>let l=@a<NL>let @a=!(float2nr(sqrt(1+64*(l[0]*16+l[1]*8+l[2]*4+l[3]*2+l[4])+l[5]*32+l[6]*16+l[7]*8)*99)%99)<NL>"aP<NL>endfor<NL>ZZ<NL>

stdin

11001111
10111110
01101001
01000110
00101101
00000011
10011000
01001110
01000010
11010111
00011001
11111101
01100000
00011110
10011010
11100011
00101010
00011100
10011001
11100111
10011011
00001101
00000110
01111000
00000001
00110101
00000000
11001000
01011111
11111011
01001000
10001000
01001110
10001000
00111000
00001001
00001010
00010101
01011100
01111010
11010010
01011011
10101011
00011111
00110111
00100100
10101100
01001111
10010001
00001111

stdout

11001111
10111110
01101001
01000110
00101101
00000011
10011000
01001110
01000010
11010111
00011001
11111101
01100000
00011110
10011010
11100011
00101010
00011100
10011001
11100111
10011011
00001101
00000110
01111000
00000001
00110101
00000000
11001000
01011111
11111011
01001000
10001000
01001110
10001000
00111000
00001001
00001010
00010101
01011100
01111010
11010010
01011011
10101011
00011111
00110111
00100100
10101100
01001111
10010001
00001111

stderr

strace