RosettaCodeData/Task/Babbage-problem/F-Sharp/babbage-problem-1.fs

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