Result

WA

Code [DL]

:for i in range(51)
let l=getline(i)
call setline(i,!(ceil(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
ZZ

Disassembly

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

stdin

00101101
10011001
00001111
00000001
10011011
10111110
01000010
11011010
11111001
11110111
00011100
00001111
00100100
00000000
11111101
10101101
11010011
11001001
00000101
00010101
11110110
00110100
11011111
01111000
10001110
11100111
10101011
11010010
01010101
01011011
10100000
10001100
10111101
01101001
00001010
01001110
11001000
00111001
11110011
00000110
00000011
11001011
01011010
00110111
11101011
10001000
00110101
01111100
00001111
01101000

stdout

0010110

10011001
00001111
00000001
10011011
10111110
01000010
11011010
11111001
11110111
00011100
00001111
00100100
00000000
11111101
10101101
11010011
11001001
00000101
00010101
11110110
00110100
11011111
01111000
10001110
11100111
10101011
11010010
01010101
01011011
10100000
10001100
10111101
01101001
00001010
01001110
11001000
00111001
11110011
00000110
00000011
11001011
01011010
00110111
11101011
10001000
00110101
01111100
00001111
01101000

stderr

strace