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