perl -e"($_='987654321')=~s[(?!$)][pos()?(qw[+ - * /],('')x4)[rand 8]:int(rand 2)?'':'-']ge while 2006!=eval;print;"