procedure main() every b:=0&a:=|reads()&b:=writes(b<>a) end