: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