let mutable n=1 while(((n*n)%( 1000000 ))<> 269696) do n<-n+1 printf"%i"n