(DEFUN BBBB O (setq bs bjl as ajl cs cjl) (set(read( strcat"b"(itoa j))bj2) (set(read( strcat"a"(itoa D)))aj2) (set(read(strcat"c"(itoa)))cj2) (set(read(strcat"b"(itoa(+j 1))))bs (set(read(strcat"a"(itoa (+j I))as (set(read(strcat"c"(itoa(+j))cs)) ) (DEFUN BBBB () (setq b$ bj1 a$ aj1 c$ cj1) (set (read (strcat "b" (itoa j))) bj2) (set (read (strcat "a" (itoa j))) aj2) (set (read (strcat "c" (itoa j))) cj2) (set (read (strcat "b" (itoa (+ j 1)))) b$) (set (read (strcat "a" (itoa (+ j 1)))) a$) (set (read (strcat "c" (itoa (+ j 1)))) c$) )