(setq arg 0) (setq int1 0) (setq int2 0) (repeat 15 (setq bl (boole arg int1 int2)) (setq arg (1+ arg)) (setq int1 (1+ int1)) (setq int2 (1+ int2)) ) (princ " ") (princ bl) I mean and would to print (boole 0 0 0) >>>result ??? (boole 1 1 1) >>>result ??? etc...