(do[(p 1 g)(g(set! ~(expt 10 499))(div(* ~ ~)(+ ~ g)))][(= p g)(print"1."g)])