(print (DO (	(l '(THIS IS A LIST) (REST l))
		(result NIL) )
	     ((NULL L) result)
	   (SETF result (CONS (FIRST l) result))
	)

)

(defun power (a b)
(do ((i 0 (+ i 1))
	(result 1))
   ((> i (- b 1)) result)
(setf result (* result a))
))

(defun power2 (a b)
(LET ((i 0) (result 1))
(loop
	(if (= i b) (return result))
	(setf result (* result a) i (+ i 1))
)
)
)

(defun power3 (a b)
(Let ((i 0) (rez 1))
(PROG	((rez 1))
   	cic	(IF (= i b) (RETURN rez))
		(SETF rez (* rez a) i (+ i 1))
		(GO cic)
)))

(defun factorial (n)
(LET ((i 1) (result 1))
(loop
	(if (> i n) (return result))
	(setf result (* result i) i (+ i 1))
)
)
)

(defun firstn (n list)

(DO (	(l list (REST l)) (i 0) (result NIL) )
	     ((or (NULL L) (= i n)) result)
	   (SETF result (append  result (list (car l)) ) i (+ i 1))
	)
)

(defun flatten (lista)
(Let ((result nil))
(COND (	(endp lista) result )
	((atom (car lista)) (append (append result (list (car lista))) (flatten(cdr lista))))
	(T (append (append result (flatten(car lista))) (flatten(cdr lista))))
)
)
)


(defun flatten2 (lista)
(Let ((result nil)(stiva nil))
(Loop (	(and (endp lista) (endp stiva)) result )
	((cond ((atom (car lista)) (setf result (append result (list (car lista)))) (setf lista (rest lista)))
	((endp lista) (setf lista (car stiva)) (setf stiva (cdr stiva)))
	(T (append stiva (cdr lista)) (setf lista (car lista))
)
)
)
)


))