(define (append-el el lst)
  (define (voorlaatste eindigtop)
    (define (iter lst)
        (if (eq? (cdr lst) eindigtop)
            lst
            (iter (cdr lst))))
    (iter lst))
  (define (iter newl lastlst)
    (cond ((eq? lastlst lst) newl)
          (else
            (let ((newlast (voorlaatste lastlst)))
              (iter (cons (car newlast) newl) newlast)))))
  (if (null? lst)
      (list el)
      (let ((startlast (voorlaatste '())))
        (iter (list (car startlast) el) startlast))))