Result

WA

Code [DL]

:for i in range(51)
call setline(i,!(float2nr(sqrt("0b{getline(i)}"*8+1)*99)%99))
endfor
ZZ

Disassembly

:for i in range(51)<NL>call setline(i,!(float2nr(sqrt("0b{getline(i)}"*8+1)*99)%99))<NL>endfor<NL>ZZ

stdin

10100111
10011001
10001011
00000110
10111110
00101101
10101101
01000010
01110101
01011000
11111000
00101001
00011100
00110111
00110001
00001111
01111000
11101011
00110111
00100100
11010010
01011001
00000000
01111011
11100100
00000010
00100000
00001101
00010101
00000011
11000110
10001000
00010101
01101001
10010110
01010001
10100010
00000001
11111101
00111110
01011011
00010011
01001110
11100111
00010100
10101011
00001010
10000001
10010100
00101000

stdout

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

stderr

strace