by@akouryy1
WA
: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
: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
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
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