$a=1;print$a-=$b+=$a*=-1,$/while$a<10**6