(define cart
  (lambda (l1 l2)
    (apply append
	   (map (lambda (x)
		  (map (lambda (y)
			 (list x y))
		       l2))
		l1))))


;(define map
;  (lambda (p l)
;    (if (null? l)
;       '()
;       (cons (p (car l))
;             (map p (cdr l))))))


(define myapply
  (lambda (p l)
    (cons p l)))

(define foo
  (lambda (x y)
    (+ x y)))


(define list-recur
  (lambda (ls init f)
    (if (null? ls)
	init
	(f (car ls) (list-recur (cdr ls) init f)))))