$a=$b=1;{$b-=$a+=$b*=-1;print$a,$/;999999>$a&&redo}