Result

WA

Code [DL]

:for i in range(1,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(1,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

11100111
10011001
00011100
00110111
01011011
11111111
11101010
00000110
10111110
10010101
00100100
00000001
01010100
00000000
00001111
01101000
01101101
11010010
00101100
11111100
01001110
01000010
01010001
00000111
00000011
10001000
11001101
11001111
11101101
00100001
11010101
00101101
11011110
11000011
01010101
01000000
00111111
00010101
11111101
00001010
00000011
10101011
00111010
00101101
00001000
01101001
01110000
01001111
01111000
10100110

stdout

11100111
10011001
00011100
00110111
01011011
11111111
11101010
00000110
10111110
10010101
00100100
00000001
01010100
00000000
00001111
01101000
01101101
11010010
00101100
11111100
01001110
01000010
01010001
00000111
00000011
10001000
11001101
11001111
11101101
00100001
11010101
00101101
11011110
11000011
01010101
01000000
00111111
00010101
11111101
00001010
00000011
10101011
00111010
00101101
00001000
01101001
01110000
01001111
01111000
10100110

stderr

strace