require random.fs
: roll-die ( sides -- result )
  random 1+ ;

: sided-rolls ( number sides -- total )
  swap 0 swap 0 ?do over roll-die + loop nip ;

2 6 sided-rolls .