gistfile1.rkt

(define (list-ref/random l)
  (list-ref l (random (length l))))

(define (apply-reduction-relation/random red t)
  (define tps (apply-reduction-relation red t))
  (if (empty? tps)
      t
      (apply-reduction-relation/random red (list-ref/random tps))))