;(defup swap (array)
;	(cond
;		((null (cdr array)) array)
;		
;	)
;)

(print (second '(1 2 3)))