#!perl -pl
/\d+\+/;$-+=rand$&for 1..$_;$_+=$'+$-

##</code><code>##

#!perl -pl
s/d/q(+~~rand($')+d)x$`/e;$_=eval