 1. (1 ). H 㭪i 袨 p㢠 (QUICK_SORT lst).
ᮢ i - O(n*logn).

i: p⠩ ⮢ 㭪i (SPLIT <ᯨ᮪>), 猪 p 
ᯨ᮪   ᯨ᪨ ।i. 祭 ᯨ    . 
㭪i SPLIT    ᯨ.
$ (SETQ a '(1 2 3 4 5 6))	$ a
$ (SPLIT a)			(1 2 3)
(4 5 6)


 2. (1 ). H , 猪 p,  N ,   直
 ,  ii 㬥஢i   i ᫠
i 2  N. i  p  , 稭  . ,
  㯨 i硠, 室  . i硠 த 
㯭  ( 쮬 i    p i ⠪   i,
    .  ⪮  i .
H ii 㭪i (COUNT_MAN m n).

i: p㢠 ᯨ᮪ (1 2 3 ... n)   i稫쭨 i=1,2,... .
 i mod m = 0    ᯨ, i p󤭠   i
ᯨ.


 3. (1 ). H i쪨 i i ᫮ N! = 1*2*...*N. 
H 㭪i (FACT0 N). 㢠 p 㭪i 㤥 p室  
᫠ p浪 N = 10^6. 祭 䠪pi ᫠ N p㢠  p.
 p 㭪i, 猪 p ii i.

  i: ii 㫥, 直 i ᫮ N! pi i쪮i
ᥫ 5  pi ᫠ N!  pi .(p 0  ii 㤥 
'  p 2  5,  i쪨 i 2 i  5,
  p'離 i  ip㢠 ii 5).

  Hp: 30! = 30* ...* 25 *...* 20 * ... * 15 * ... * 10 * ... * 5.
쮣 7 'ip (25  i 'ip, i ii ᠭi ᫠ -  i).
⦥ 30! i 7 ﬨ.

 4. ( , 1 ).   ii i ᥫ 
x[1],..., x[n].  ᨬ   p iii. 
H 㭪i (MAX_SEQUENCE lst). ᮢ i O(n*log(n)).


 5. ( , 2 ).   ᠭ p 1. H p讬
pi p  p⢮p   p p 0 1. H  㯭 
pi  i  0  p 1 0,  i 1 - p 0 1.
 稭  p㣮 pi i 1 0 0 1,  p쮬 - 0 1 1 0 1 0 0 1
i ⠪ i. i쪨 i⥩  i (ii  i ⨬
 i i , i  p) 㤥 ᠭ  n- pi? 
H 㭪i (EOM n). ᮢ i p - O(log N).

i:  p㢠 ᯨ᮪  0  1 (i쪨 ᫮ N   㦥
),   㭪i 猪   p  pp㢠 .
  祭 N  p ᯨ᮪  pip p쭮i
p ᠭ 㭪i.

'燐: p i i    p, i쪨 ⮤i    
i ⢮p  i p p,  㯥p p
p⢮p.   n- pi 㤥 ip客㢠 ii 㫥, 
 p. p p⢮pi ᥫ i 0 i 1   p 00. 
ii 00 p  ii 01 (  i ii 00, 10, 11
 i室). ⦥, ii p 㫥 (EOM n)  n- pi pi
i쪮i p 01  n-1 pi. n- p i 2^n p, p 直
2^(n-1) 㫥 (⮬   p p⢮p ii 㫥  
 ii  ). i    n- pi 
 0  (EOM n) ,     2^(n-1) - (EOM n)
.   n- pi 2^(n-1) - (EOM n) ii 01.  i i쪨
  ii 01   (n+1) -  pi ⠪  ii 00.
 EOM (+ n 1)) = 2^(n-1) - (EOM n). p 쮬 (EOM 1) = 0.
'  piﭭ,  : (EOM n) = (2^(n-1)+(-1)^n)/3.
i쪨 pi iᥭ  ⥯ a^N     O(logN),
 i ᮢ i  p pi O(logN).



஡ ᨢi

 ii   ᯨ,    ᨢ. ᨢ   
  ᯨi.  쮣 i  㭪i  
ᨢi,    ᨢ,  i 祭  ᨢ. 
ﭥ  i  ਪi.

.  ᨢ a:array [0..k] of integer  b:array [0..l] of integer 
i ii  童i ⥯ k  l.  ᨢ 
c:array[0..m] of integer ii⠬  . ᫠ k,l,m - ࠫi, 
m = k+l.  ᨢ  iᮬ i i ii  x  ⥯i i.

'燐. '燐 i i  ᪠i  㯭 :

for i := 0 to m do c[i] := 0;
for i := 0 to k do
     for j := 0 to l do
         c[i+j] := c[i+j] + a[i] * b[j];

ᨢ iii 童 ।⠢⨬ ᯨ᪮ ii . 
堩 lst1  lst2 - ᯨ᪨ iii   㬮i 童i. 堩 
㭪i (MULTPOL lst1 lst2)  ᯨ᮪ iii  i 
童i. ਪ, ii 童 (x3+2x2+1)  (x2-4x-1)  
ᯨ᪠ lst1 = (1 2 0 1), lst2 = (1 -4 -1). ⮬   㤥 
童 x^5 - 2*x^4 - 9*x^3 - x^2 - 4*x -1, 直 ।⠢ ᯨ᪮ 
lst3 = (1 -2 -9 -1 -4 -1).   i  祭 k  l 
(   ।   㬥).  쮣 i  
 ᯨi lst1  lst2.  ஡ 㭪i (LENGTH lst):

(DEFUN LENGTH (lst)		(DEFUN GEN0 (n)
((NULL lst) 0)				((ZEROP n) NIL)
(+ 1 (LENGTH (CDR lst)))  )		(CONS 0 (GEN0 (- n 1)))  )

  ᯨi lst1  lst2 (k  l ii),    
१箣 ᯨ lst3 (m=k+l). i 㢠 ᯨ᮪ lst3, 直 
᪫  m i,   直 i 0.  ஡ 㭪i 
(GEN0 n).

㭪i (mas lst n)  n-  ᯨ lst. 㭪i 
(CHANGE lst n value)  ᯨ᮪ lst,  类 n-   祭 
value.

(DEFUN MAS (lst n)		(DEFUN CHANGE (lst n value)
((ZEROP n) (CAR lst))		((ZEROP n) (POP lst) (PUSH value lst))
(MAS (CDR lst) (- n 1))  )	(CONS (CAR lst) (CHANGE (CDR lst) (- n 1) value))

i 㭪i MULTPOL, 猪 ᠭ  ᪠i,  ii 㢠 㯭 
:

(DEFUN MULTPOL (lst1 lst2)
(SETQ k (LENGTH lst1) l (LENGTH lst2) lst3 (GEN0 (+ k l)))
(SETQ i 0)
(POP lst3)
(LOOP
  ((= i k) lst3)
  (SETQ j 0)
  (LOOP
   ((= j l))
   (SETQ lst3 (CHANGE lst3 (+ i j) (+ (MAS lst3 (+ i j)) (* (MAS lst1 i) (MAS lst2 j)))) )
   (INCQ j)   )
(INCQ i)  )  )

। muLisp  ⠪ ⮢ 㭪i MAKE-LIST,  
⮢㢠  ⢮७ ᯨi  ஧i. 㭪i 
(MAKE-LIST n ' ᯨ᮪) ⢮ ᯨ᮪  n i,   直 
਩ 祭 ', 󤭠i  ᯨ.    訩 
㬥,   祭 n = 0.  㣨 㬥  ,  
 ' = NIL.

$ (MAKE-LIST 3 '(q w))	$ (MAKE-LIST 4)		$ (MAKE-LIST 3 5 '(2 3))
  ((q w)(q w)(q w))	(NIL NIL NIL NIL)	(5 5 5 2 3)

 㭪i   㯭 稭 (i' i  MAKE-LST):

(DEFUN MAKE-LST (N OBJ LST)
((AND (INTEGERP N) (PLUSP N))
      (CONS OBJ (MAKE-LIST (SUB1 N) OBJ LST)) )
LST )

㭪 (OBLIST)    㬥i, ⢮   ᯨ᮪ ⨢ 
筨  ᨬi  ⥬i.  ஧订i  ⮬ 浪,  
类  ⠭i  ஢i ப 㭪iﬨ: i ᨬi 
஧订i i i .





1.  㭪i:
) (GORNER n lst x) - ᫥ 祭 童 ⥯ n  i x, 
   ii 类 i  ᯨ lst.
) (APPL lst1 lst2) -   i⮢ ᯨi  i⮢ ᯨ᮪.
) (SCALAR lst1 lst2) - ᪠୨ ⮪  i, न 直 i
   ᯨ᪠.

2.  ᯨ᮪  n ᥫ  ࠫ쭥 ᫮ m < n.   㯨  m 
   i,  室 , ᫨  .  ᯨ᮪  i 
    . 쭠 ii i   O(n). 
   ਪ: (7 1 4 2 3), m=3. S= (12 7 9).

3. ᮪ LST i ⠭ ᥫ 1,2,..,n.  ii 
   ⠭.

4. ᮪ LST i ⠭ ᥫ 1,2,..,n.  ii 横i 
    ⠭i. ਪ, 152463 = (1)(5632)(4) -  横.

5. 㢠  i ࠫ쭨 ᥫ i 0  n. '易 ⠪ 
     ⮢ i쪨   ii,  쮬 ii
   i   O(n).

6. ⨨ 㭪i:
) (MATR_GET m i j) -  祭 m[i][j],  m -  n * n, i<=n, j<=n.
) (MATR_CHANGE m i j value) -  ,  i m[i][j]=value.
) (GENMATR0 i j) - 㢠 쮢  i * j.
) (PMATR m i j) - 㢠  m  ⠡ i * j (i ଠ㢠).



iii

1. a) $ (DEFUN GORNER (n lst x)				୥ ४ᨢ
           (SETQ k 0 y (POP lst))			(DEFUN GORREC (lst x)
           (LOOP					   ((NULL (CDR lst)) (CAR lst))
              ((= k n) y)				   (GORREC (CONS (+ (* (CAR lst) x)
 	      (SETQ y (+ (* y x) (POP lst)))		   (CADR lst)) (CDDR lst)) x)
 	   )  ) ) 

) $ (DEFUN APPL (lst1 lst2)
      ((NULL lst1) (APPEND lst3 lst2))
      ((NULL lst2) (APPEND lst3 lst1))
      ((< (CAR lst1) (CAR lst2))
      (CONS (CAR lst1) (APPL (CDR lst1) lst2)))
      (CONS (CAR lst2) (APPL lst1 (CDR lst2)))  )

  ) $ (DEFUN SCALAR (lst1 lst2)
     ((/= (LENGTH lst1) (LENGTH lst2)) NIL)
     (SETQ s 0)
     (LOOP
          ((NULL lst1) s)
          (SETQ s (+ s (* (CAR lst1) (CAR lst2))))
          (SETQ lst1 (CDR lst1) lst2 (CDR lst2))
     )  )

2. $ (DEFUN SMLIST (lst m)			(LOOP 
   (SETQ n (LENGTH lst) res NIL)			((= i n))
   (SETQ i 0 s 0)					(SETQ s (- s (MAS lst (- i m))))
   (LOOP						(SETQ s (+ s (mas lst i)))
     ((= i m))						(PUSH s res)
     (SETQ s (+ s (MAS lst i)))				(INCQ i)  )
     (INCQ i)  )					(REVERSE res)  )
   (PUSH s res)

3. $ (DEFUN perestan (list)
      (SETQ res 0)
      (LOOP
           (SETQ x 0)
           ((ATOM list) res)
           (SETQ a (POP list))
           (SETQ q (LENGTH list))
           (LOOP
                  ((= x q) res)
                  (IF (> a (mas list x)) (INCQ res))
                  (INCQ x)
          ))     )

4. $ (DEFUN CYCLES (lst)		$ (DEFUN ISPLUS (lst t1)
   (SETQ a 0)					   ((NULL lst) NIL)
   (LOOP					   ((> (CAR lst) 0) t1)
   (SETQ t1 (ISPLUS lst 1))			   (ISPLUS (CDR lst) (+ t1 1))  )
   ((NOT t1))
   (INCQ a)
   (LOOP
      ((> 0 (MAS lst (- t1 1))))
      (SETQ lst (change lst (- t1 1) (- (mas lst (- t1 1)))))
      (SETQ t1 (- (mas lst (- t1 1))))   )
   )   a   )

5. $ (DEFUN PRSQ (n)			$ (DEFUN PRSQOPT (n)
     (SETQ i 0)				   (SETQ k 0 ksq 0)
     (LOOP					(WRITE ksq) (SPACES 1)
	((> i n))				(LOOP
	(WRITE (* i i)) (SPACES 1) 			((= k n ))
	(INCQ i)					(INCQ k) )
     )   )						(INCQ ksq (SUB1 (+ k k)))
							(WRITE ksq) (SPACES 1)
   						)   )

6. a) $ (DEFUN MATR_GET (m i j) 	) $ (DEFUN GENMATR0 (i j)
	(LOOP					(SETQ lst (gen0 j) res NIL)
		((ZEROP i) (SETQ m (CAR m)))	(LOOP
		(POP m)					((ZEROP i) res)
		(DECQ i)				(PUSH lst res)
	)						(DECQ i)
	(LOOP					)
	   ((ZEROP j) (CAR m))
	   (POP m)
	   (DECQ j)
	)   )

) $ (DEFUN MATR_CHANGE (m i j value) 		) $ (DEFUN PMATR (m nx ny)
     (SETQ head NIL)				     (SETQ i 0 j 0)
     (LOOP 					     (LOOP
	((ZEROP i)(SETQ current (CAR m) t (CDR m)))  ((= i nx))
	(PUSH (POP m) head)			     (SETQ j 1)
	(DECQ i)				     (LOOP
       )						((= j ny))
      (SETQ current (CHANGE current j value)) 		(WRITE (matr_get m i j)) (SPACES 2)
      (PUSH current t) 					(INCQ j)
      (LOOP					     )
	((NULL head) t)				     (TERPRI 1)
	(PUSH (POP head) t)			     (INCQ i)
      )   )					     )   )



 1.  ᯠ ᯨ᮪ ᥫ x.  ii i ᥫ 
। i 쮣 ᨢ. H 㭪i (FIND_DIFF x)

  i: 㪠 ᫮  1 i  ii  ᥫ i  1..n-1, 
直 x[i] <> x[i+1].

(DEFUN find_diff (x)
	((NULL (CDR x)) 1)
	(IF (/= (CAR x) (CADR x)) (+ 1 (find_diff (CDR x))) (find_diff (CDR x)))
)


 2.  ᨢ i ᥫ x.  ii i ᥫ ।
i 쮣 ᨢ. i,  i  ᨢ - ᫠ i 1  n.
ᮢ i O(n). H 㭪i (FIND_NUM_N n x).

  i: ⢮p i ᨢ lst ᥫ i 1  n  p ⠭i
 i i    ᨢ x[i].

(DEFUN find_num_n (n x)
(SETQ a (GEN0 n))
(LOOP
        ((NULL x))
        (SETQ a (CHANGE a (CAR x) (+ 1 (MAS a (CAR x)))))
        (SETQ x (CDR x))
) a )


 3.  i誠  p      ।. 
室 i誨  i  .  ii i i,  直
i誠  ன  i   i.

ਪ.  =3, =2
          i :
	          1,1,1
	          1,2
	          2,1
ii:3.

  i: 祢 ஧'燐 i p ஧ ᫠ N  
ii 㬨 ⠪ 稭, 鮡    i   i訬  k.
祢,   ⠪ ஧i 㦥 , ᮡ  p 
㢠,  冷 i  pi  i⭨, ⮬  i ii
ii ii pi i誨.
  稬 १ S(i) ii i i,  直 i誠  ன 
i   i  ஬ i.  p⨬,   i쭮 j i 1  i
ii 祭 稭 S(j).    祭i ࠢ ᫥
祭 S(i+1), p⮢ 祭 i 稭.  i, 
 i  ஬ i+1 i誠  p i i i, i-1,...,i-k+1. 
⦥ S(i+1)=S(i)+S(i-1)+...+S(i-k+1).
   稭,  i 祭 稭 
S(1), S(2),  ..., S(N)  ᠭ  ࠢ, p 祭
S(N), 瘟 i   ii i i, 
直 i誠  ன  i   i  ஬ N.

(DEFUN FISHKA (n k)
        (F n k '(1))
)


(DEFUN F (n k lst)
(print lst)
((= (+ n 1) (LENGTH lst)) (CAR lst))
(SETQ l lst i 0 summa 0)
(LOOP
        ((OR (NULL l) (= i k)))
        (INCQ summa (CAR l))
        (POP l)
        (INCQ i)
        )
(F n k (CONS summa lst))
)

 4.    i⨭.  i (m,n) 室 i誠.   
p    pשׁ: i (襭 p m  1) 
 (襭 p n  1). H 㭪i (GO m n), 猪 室
ii pi i  i⨭ (m,n)  i⨭ (0,0).

i: ii i   (m,0)  (0,n)   (0,0) pi 1,
 m<>0, n<>0. ii i   (m,n) pi i i쪮i i
  (m-1,n)   (m,n-1).  p f(m,n)  㪠  i
ii i,  
	f(m,n) = f(m-1,n) + f(m,n-1), n>0,m>0.
	f(m,0) = f(0,n) = 1, m>0, n>0.
	f(0,0) = 0.



㭪i 浪i

㭪i 浪i ਧ祭i  ஡  ⥪⠬.    
 i쪮i i  ⥪⮢  - iﭭ,   
⢮७ P - i ᨬi  ᥫ. P - i' ᫠ i  
iii  筮 ⥬ ᫥ (祭 i *PRINT-BASE*).

1. UNPACK <atom>.  ᯨ᮪ ᨬi, P - i   直 
   ᪫  㪮 ᨬi ⮬ <atom>.  <atom>   ⮬,  
    NIL.

(DEFUN UNPACK (ATM)
((SYMBOLP ATM)   (ᯨ᮪ ᨬi, P - i 直 ᪫  㪮 
                  ᨬi ⮬ ATM) )
((NUMBERP ATM)   (ᯨ᮪ ᨬi, P - i 直 ᪫   ⮬ ATM) ) )

$ (UNPACK 'abcde)	$ (UNPACK 216)	$ (SETQ *PRINT-BASE 16*)
(a b c d e)		(\2 \1 \6)	$ (UNPACK 216)
			 		(\0 \D \8)

2. PACK <list>.  ᨬ, P - i' 类 ᪫i i 祯 
   P - i ⮬i  ᯨ <list>.  祭 P - i ᥫ 
   ⮢ 筠 ⥬ ᫥. 㭪i PACK   
   ᨬ, i  P - i' ᪫ i쪨  筨 ᥫ.

(DEFUN PACK (LST)
((ATOM LST) "")
((SYMBOLP (CAR LST)) (ᨬ, P - i' 类 ᪫  P - ii (CAR LST),
                                  ᯮ祭  (PACK (CDR LST))) )
((NUMBERP (CAR LST)) (ᨬ, P - i' 类 ᪫    㪮 
                                  ।⠢i (CAR LST), ᯮ祭  (PACK (CDR LST))) )
(PACK (CDR LST)) )

$ (PACK '(a b c d e)		$ (PACK '(\7 \3 \1)	$ (PACK '(Q \7 \A \1))
abcde				|731|			Q7A1

$ (PACK '(23 56)		$ (PACK '("" 3 ||))
|2356|				\3

3. PACK* <atom1> ... <atomN>.  ᨬ, P-i' 类 ᪫ i 
   祯 P-i ⮬i.  㭪i  쪮 i PACK, i쪨  
     i ᯨ᪮ ⮬i,   -类 ii ⮬i.

(DEFUN PACK* LST
(PACK LST) )

$ (PACK* 'a 'b 'c)		$ (PACK 4 'QW 'T)
ABC				|4QWT|

4. CHAR <atom> <n>.  <atom> - ᨬ  ᫮,  <n> - i'󬭥 i
   ᫮, 㭪i CHAR  ᨬ, P - i' 类  n- ᨬ P - 
   ii <atom>, 箬 ii ᨬi 稭  0. 㭪i  NIL
    <n>   i  ⭥ i ᫮,   P - i' ⮬ <atom> 
   i  i n ᨬi.

(DEFUN CHAR (atm n)		
((ATOM atm) (NTH n (UNPACK atm)) ) )

$ (CHAR 'ABCDE 3)	$ (CHAR 12345 0)	$ (CHAR 'qwe 8)
D			\1			NIL

5. SUBSTRING <atom> <n> <m>.  <atom> - ᨬ  ᫮, <n>  <m> - 
   i'i ii, n<=m,  㭪i SUBSTRING  ᨬ, P - i' 类 
   ᪫  ᨬi P - i ⮬ 稭  n-  m-, 箬 
   ii ᨬi 稭  0.  n<=0,    n=0.  m  
   ,    0  i  ii ᨬi  P - ii ⮬, 
   m  i i쪮i ᨬi  P - ii ⮬.  n>m 
    NIL.

(DEFUN SUBSTRING (atm n m)
	((AND (ATOM atm) (INTEGERP n))
	((MINUSP n) (SUBSTRING atm 0 m))
	(PACK (SUBLIST (UNPACK atm) n m))

$ (SUBSTRING 'ABCDEFG 2 4)	$ (SUBSTRING 'ABCDEFG 3)
CDE				DEFG
$ (SUBSTRING 123456 3)		$ (SUBSTRING 'ABCDEFG 0 3)
|456|				ABCD

6. STRING<pr> <atom1> <atom2> <flag>,  <pr> - -直 
   । <, >, <=, >=, =, /=. i㢠 ᨪi筥 iﭭ 
   P - i ⮬i i  ।⮬ <pr>.  䫠 i NIL, 
   iﭭ i㢠  㢠 ॣi.  䫠  , i 
    i T. 㭪i STRING=   T  NIL. Ii 㭪i 
     NIL,   i 讣 ᨬ, 稭  类 
   P - i  i.

$ (STRING= 'ABC 'ABC)	$ (STRING 'ABC 'ABC NIL)
T			T
$ (STRING= 'Abc 'AbC)	$ (STRING= 'Abc 'AbC NIL)
T			NIL
$ (STRING= |100| 100)	$ (STRING< 'ABC 'AZC) 
T			1    
$ (STRING< 'AZC 'ABC)	$ (STRING>= '123 '123)
NIL			3

7. STRING-UPCASE <atom>.  ᨬ, P - i' 类 i  
   P - i ⮬,  i  i ⢮  i.  <atom>
     ⮬,  NIL.

$ (STRING-UPCASE "Lisp Is A Language")	$ (STRING-UPCASE '(a s d))
  |LISP IS A LANGUAGE|			NIL

8. STRING-DOWNCASE <atom>.  ᨬ, P - i' 类 i  
   P - i ⮬,  i  i ⢮  i. 
    <atom>   ⮬,  NIL.

$ (string-upcase |This is A TEXT|)	$ (string-downcase |This is A TEXT|)
|THIS IS A TEXT|			|this is a text|

$ (STRING-UPCASE 'i)			$ (STRING-DOWNCASE 'I)
I					\i

9. FINDSTRING <atom1> <atom2> <n>.   i 讣 室
   P - ii ⮬1  P - i' ⮬2.  <n> -   ⭥ i,  
   稭  n- ᨬ ⮬2.  P - i' ⮬1  , 
    NIL.

(DEFUN FINDSTRING (ATM1 ATM2 N)
((OR (NOT (ATOM ATM1)) (NOT (ATOM ATM2))) NIL)
((PLUSP N)
    ((NULL (FINDSTRING ATM1 (SUBLIST ATM2))) NIL)
    (+ N (FINDSTRING ATM1 (SUBLIST ATM2 N))) )
(( ATM1  i浪 ATM2)
    (i ATM1,  i   i  ATM2) ) )

$ (FINDSTRING 'BC 'ABCDEFG)	(FINDSTRING 'abc 'abdeabcde)
1				4

10. PRINT-LENGTH <atom>.  ii ᨬi  P - ii ⮬ 
    㢠 祭 ஫쭨 i *PRINT-BASE*  *PRINT-ESCAPE*.

$ (DEFUN PRINT-LENGTH (atm)		
((ATOM atm) (LENGTH (UNPACK atm)))	

$ (PRINT-LENGTH 'Mulisp)
6

$ (PRINT-LENGTH -156)		$ (PRINT-LENGTH NIL)
4				3

ﭥ 㭪i, 猪   ⮬ 室 ᨬ ii 
i, 猪  쮬  i.  , 直 ᪫  i  
᫠. ਪ,  ⮬ a22eeerty  (e . 3).

(DEFUN symmax (atm)					$ (symmax 'a22eeerty)
((NOT (ATOM atm)) NIL)					(e . 3)
(SETQ lst (UNPACK atm) endel (ASCII 0) endct 0)		$ (symmax 'nil)
(LOOP							(n . 1)
  ((NULL lst))						$ (symmax 1222334)
  (SETQ el (CAR lst) ct 0)				(\2 . 3 )
  (LOOP
  ((NOT (EQL (CAR lst) el)))
  (POP lst)
  (INCQ ct) )
  (IF (> ct endct) (SETQ endct ct endel el)) )
(CONS endel endct) )
