anchor.diff:             ((? from-end
   	           (integer< i e)
   			   (integer> i e)))
  -	     (let elm (elt seq i)
  -           (& (apply pred (cons elm (& with-index (list i))))
  -		      (return elm)))))))
  +	     (alet (elt seq i)
  +           (& (apply pred (cons ! (& with-index (list i))))
  +		      (return !)))))))
    
   (defun find-if (pred seq &key (start nil) (end nil) (from-end nil) (with-index nil))
     (? (not (atom seq) start end)
  
positive.code:            seq)
      (? with-index
         (let idx 0
           (dolist (i !)
             (& (funcall pred i idx)
                (return i))
             (++! idx)))
         (dolist (i !)
           (& (funcall pred i)
              (return i))))))
  
  (defun %find-if-sequence (pred seq start end from-end with-index)
    (& seq (integer< 0 (length seq))
  
negative.code: 
  (defun every (pred &rest seqs)
    (dolist (seq seqs t)
      (adotimes ((length seq))
        (| (funcall pred (elt seq !))
           (return-from every nil)))))
  
  (define-test "EVERY works"
  