#lang racket

(define (append l1 l2)
  (cond [(null? l1) l2]
        [else (cons (car l1)
                    (append (cdr l1) l2))]))