require random.fs

: sided-roll ( sides -- result )  random 1+ ;

: sided-rolls ( rolls sides -- total )  swap  0 -rot  0 ?do  tuck sided-roll + swap  loop drop ;

\ Example -- 2d4:
2 4 sided-rolls .

: d4 ( rolls -- total )  4 sided-rolls ;