$a=1;print$a-=$b+=$a*=-1,$/for 0..31