Not so simple dice program.  It can handle inputs of multiple dice, 
dice plus numbers, dice minus numbers, or even dice minus dice.  It defaults 
to 1 die if you don't specify, and it also defaults to d6's if the die size
is left off.  'roll' by itself defaults to d20, but this is easily changed.

roll d4+d6
roll 1d20+2
roll 4d6-4
roll 1d6-1d6
roll 4d+2

@action roll;@roll;dice;rolldice;rdice;+r=here=dice
@link $dice=$Nothing
@succ $dice={with:cleaned,{parse:d1,{if:{&arg},{subst:{&arg},-,+-},{prop:default}},{if:{instr:{&d1},d},{if:{eq:{midstr:{&d1},1},-},-}{default:{abs:{&d1:1,1,d}},1}d{default:{&d1:2,2,d},6},{&d1}},+},{with:detail,{parse:d2,{&cleaned},{if:{instr:{&d2},d},{mult:{sign:{&d2}},{dice:{&d2:2,2,d},{abs:{&d2:1,1,d}}}},{&d2}},+},{with:total,{fold:d3,d4,{&detail},{add:{&d3},{&d4}},+},{name:me} {store:{left:rolls {subst:{&cleaned} ({&detail}),+-,-} and gets {&total}.,{subt:65,{strlen:{name:me}}}}  {right:[{store:{add:1,{prop:verify/{ref:here}}},verify/{ref:here}}],7},_/osc}}}}
@set $dice=/default:d20