;;; this code will return a list 

(load "/mit/cdsdev/beta/config/probability.scm")
(load "/mit/cdsdev/dev/sidlives/queue.o")
(define qc-birth .15)
(define qc-numtrials 0)
(define qc-curlist '())
(define qc-qlength 0)
(define qc-death .20)
(define listlength 31)
(define trial 0)
(define emptylist (zeros 31))
(define array (list->vector emptylist))
(define foo '())
(define (process l)
  (cond ((null? l) '())
	((= qc-numtrials 0) emptylist)
	(else (cons (/ (car l) qc-numtrials) (process (cdr l))))))

(define floatmax (- (* 65536 32768) 1))
(define (qc-run-trials n)
  (set! qc-qlength (queue_list array (list n qc-qlength qc-birth qc-death)))
  (set! qc-numtrials (+ qc-numtrials n))
)