Result

WA

Code [DL]

:for i in range(1,50)
:let l=getline(i)
:call setline(i,!(float2nr(sqrt(1+8*(l[0]*128+l[1]*64+l[2]*32+l[3]*16+l[4]*8+l[5]*4+l[6]*2+l[7]))*99)%99))
:endfor

Disassembly

:for i in range(1,50)<NL>:let l=getline(i)<NL>:call setline(i,!(float2nr(sqrt(1+8*(l[0]*128+l[1]*64+l[2]*32+l[3]*16+l[4]*8+l[5]*4+l[6]*2+l[7]))*99)%99))<NL>:endfor<NL><NL>

stdin

00000110
11010100
00011100
10111111
10001000
10010001
10111000
00011001
10000001
11010010
00001111
01010010
10011001
00000011
01001110
00100101
00010000
11111010
11111100
00000110
00111101
10101010
01111000
01000010
00111111
01001010
00111010
11010111
00001010
01001011
10111110
00110111
11111101
00010101
00101101
00111011
00100100
01000000
11100111
11000101
00000000
01101001
01011011
00000001
00100000
00000100
10101011
10110101
10101011
11001110

stdout

00000110
11010100
00011100
10111111
10001000
10010001
10111000
00011001
10000001
11010010
00001111
01010010
10011001
00000011
01001110
00100101
00010000
11111010
11111100
00000110
00111101
10101010
01111000
01000010
00111111
01001010
00111010
11010111
00001010
01001011
10111110
00110111
11111101
00010101
00101101
00111011
00100100
01000000
11100111
11000101
00000000
01101001
01011011
00000001
00100000
00000100
10101011
10110101
10101011
11001110

stderr

strace