: roll-dice ( sides -- result ) random 1+ ; : multiple-dice ( number sides -- result ) [ dup roll-dice ] replicate nip sum ; 2 6 multiple-dice .