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