($a,$b)=glob<>;print$,=$",(-$a,0,$a)[++$b%3,$b*2%3]