simple recursion added by dlind on Thu Aug 16 18:43:40 2012

(define append
  (lambda (ls1 ls2)
    (if (null? ls1)
	ls2
	(cons (car ls1) (append (cdr ls1) ls2)))))