fork(5) download
(setf *random-state* (make-random-state t))

(defun randlist ()
  (let ((lst ()))
    (dotimes (i 10)
       (setf lst (cons (random 101) lst)))
   lst))
   
(setf var1 (randlist))

(print var1)
Success #stdin #stdout 0.03s 10544KB
stdin
Standard input is empty
stdout
(59 60 76 96 36 40 70 54 50 90)