(do[(q 1)(s 1)]((> q 2e3))(if(>(#0=modulo(*(#0# s q)(set! s(* s q q)))(inc! q 2))0)(print(- q 2)","q)))