bracket.cl

(defvar printed-p nil)
(defun has_nonzero (row)
    (eq 0 (reduce #'logior row)))
(loop for row in X
      for i from 0
      while (not printed-p) do
    (if (has_nonzero row)
        (progn (print i)
               (setf printed-p T))))


(defvar printed-p nil           )
(defun has_nonzero (row         )
    (eq 0 (reduce #'logior row  )))
(loop for row in X
      for i from 0
      while (not printed-p) do
    (if (has_nonzero row         )
        (progn (print i          )
               (setf printed-p T ))))

                                   (
defvar printed-p nil)              (
defun has_nonzero (row)            (
  eq 0 (reduce #'logior row)       ))(
loop for row in X              
      for i from 0             
      while (not printed-p) do     (
      if (has_nonzero row)         (
        progn (print i)            (
                 setf printed-p T  ))))