procedure main() every|write(repl(0,*read())) end