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