Generando puntos al azar en R^3. Una práctica de programación en DERIVE (de hace muchos años)

puntos(a):=
PROG
 (
   llista:=[],
   i:=0,
   LOOP
     (
       x:=a·RANDOM(1),
       y:=a·RANDOM(1),
       z:=a·RANDOM(1),
       lista:=APPEND([[[x, y, z]]], lista),
       i :+ 1,
       IF(i > 10, exit)
      ),
    RETURN lista
  )