procedure main() write(1-read()) end