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