Result

WA

Code [DL]

:for i in range(50)
:let l=getline(i)
:call setline(i,!(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))
:endfor
:wq

Disassembly

:for i in range(50)<NL>:let l=getline(i)<NL>:call setline(i,!(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>:endfor<NL>:wq

stdin

01010110
00000000
00110011
11110000
01011110
00011100
10011101
11000000
11110110
10101111
00110000
00000110
11100111
10000010
01100111
00010000
11010111
10110000
01010010
00000001
11111101
01111000
10100111
01111110
10011111
00100100
11111110
01001110
10010111
01110011
01000010
10011001
00001010
01011011
00101101
11100010
10001000
00110111
01101001
01000010
10111110
11010010
01110100
11111101
10010101
11100000
00010101
00001111
00000011
10101011

stdout

01010110
00000000
00110011
11110000
01011110
00011100
10011101
11000000
11110110
10101111
00110000
00000110
11100111
10000010
01100111
00010000
11010111
10110000
01010010
00000001
11111101
01111000
10100111
01111110
10011111
00100100
11111110
01001110
10010111
01110011
01000010
10011001
00001010
01011011
00101101
11100010
10001000
00110111
01101001
01000010
10111110
11010010
01110100
11111101
10010101
11100000
00010101
00001111
00000011
10101011

stderr

strace