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