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