Dice function written in Scheme

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