(define e1
  (lambda (l)
  (if (not(null? l))(
		     (list (car l))
		     (if (not(null? (cdr l)))(
					      ((e1 (cdr l))))
			 )
		     )
      ))
  )