(load "tester.scm")

(define x '(1 2 3 4 5 6 7 8 9 10))

(define y '(a b c d e f))

(define (end-cons L x) (reverse (cons x (reverse L))))

(test (end-cons '(1 2 3) 0) '(1 2 3 0))

(define (square x) (* x x))

(test (square 5) 25)

(define lol (list x (rest x) (rest (rest x))))

(define (range m n)
  (if ( > m n)
      ()
      (cons m (range (+ 1 m) n))))

(define (fac x) (foldr * 1 (range 1 x)))

(define (super-length lol) (foldr + 0 (map length lol)))

(define (add5 x) (+ 5 x))

(define (add-to-each L n) (map (lambda (x) (+ x n)) L))

(test (add-to-each '(1 2 3 4) 8) '(9 10 11 12))

(test (super-length lol) 27)

(define (sum . x) (foldr + 0 x))  

(define ((add x) y) (+ x y))


(tester 'show)