Recursive Dice in Scheme

(define dice
 (lambda ($number $sides)
  (if (> $number 1)
   (+ (+ (random $sides) 1) (dice (- $number 1) $sides))
   (+ (random $sides) 1))))