USING: random ; : roll-die ( sides -- n ) random 1 + ; : roll-dice ( dice sides -- n ) [ roll-die ] [ + ] map-reduce ;