$ perl -e'($_=987654321)=~s##$`?(qw[+ - * /],("")x4)[rand 8]:"-"x rand 2#ge while 2006!=eval;print'
9+8*7+654*3-21