(defun isLpairs-iterative(q)
	(cond

		((not (listp q)) nil) ;if q is not a list, return nil
		((eq nil (car q)) t)  ;if q is an empty list, return t
		((not (listp (car q))) nil) ;if car q is not a list, return nil

		(	(do ((x 1 (+ x 1)))
			((= (length (nth x q)) 2) t)
			) t
		)
		(t (nil))
	)
)