by@kurgm
WA
:for i in range(1,50) "ad$ let l=@a let @a=!(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) "aP endfor ZZ
:for i in range(1,50)<NL>"ad$<NL>let l=@a<NL>let @a=!(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>"aP<NL>endfor<NL>ZZ<NL>
11001111 10111110 01101001 01000110 00101101 00000011 10011000 01001110 01000010 11010111 00011001 11111101 01100000 00011110 10011010 11100011 00101010 00011100 10011001 11100111 10011011 00001101 00000110 01111000 00000001 00110101 00000000 11001000 01011111 11111011 01001000 10001000 01001110 10001000 00111000 00001001 00001010 00010101 01011100 01111010 11010010 01011011 10101011 00011111 00110111 00100100 10101100 01001111 10010001 00001111
11001111 10111110 01101001 01000110 00101101 00000011 10011000 01001110 01000010 11010111 00011001 11111101 01100000 00011110 10011010 11100011 00101010 00011100 10011001 11100111 10011011 00001101 00000110 01111000 00000001 00110101 00000000 11001000 01011111 11111011 01001000 10001000 01001110 10001000 00111000 00001001 00001010 00010101 01011100 01111010 11010010 01011011 10101011 00011111 00110111 00100100 10101100 01001111 10010001 00001111