(defun reglas-generacion(i j k z)
 

  (setf xx 0)
  ;;print (patch-c z))

  (let ((m 0) (n 0) (b 0))
    (loop for o in (loop for u in (loop for e in *l*
				     do  (incf m)
				       (if (= m 2)
					   (return))  )
		      do (incf n)
			(if (= n 2)
			    (return)))
       do (incf b)
	 (incf xx (patch-c z))
       ;;   (print (patch-c z))
       ;;   (print xx)
	 (if (= b 2)
	     (return))
	 ))


  
  (if (> xx 2)
      (setf (patch-c (nth i (nth j (nth k *l*))))(random 1.0) (patch-x (nth i (nth j (nth k *l*)))) 7000)
      (setf (patch-c (nth i (nth j (nth k *l*)))) 1 (patch-x (nth i (nth j (nth k *l*)))) 0))
  
  )