procedure main()
every a:=|read()&(n:=0)+:=!(4^a)|write(n)
end