procedure main()
n:=1
every|write(n+:=(p:=!357)-n%p)\341
end