(Q?@)(COND((AND(PROGN(INITGET 6)(SETQ QO(GETINT"Join which line number: ")))(/=(SETQ QO(1- QO))Q#J)(< QO QL@))(Q?J)(SETQ Q0(SSNAME QOJ QO)QQJ(STRCAT(SUBSTR QQJ 1(1- QLJ))(QQ 1(ENTGET Q0))(SUBSTR QQJ QLJ))QL@(1- QL@)Q&J(STRLEN QQJ)Q&@ T Q$J(Q#(CONS Q0 NIL)Q$J))(ENTDEL Q0)(SSDEL Q0 QOJ)(Q%J QQJ 1)(IF(< QO Q#J)(SETQ Q#J(1- Q#J))))(T(Q?@)(Q1J)))