Not golf or obfu, but 2002 is an interesting number!

perl -e '$_++;print "$_$_"*ord("\a")*ord("\r")<<$_'
[download]

It should work perfectly the first time! - toma