push@a,$_<2?2:($a[-1]+$a[-2])%500*2for 0..2e3;print$a[($n=<>)%600+($n>3)*600]+$n%2-1