(define round-n-places
  (lambda (x n)
    (let ((pot (expt 10.0 n)))
      (/ (floor (* x pot)) pot))))

(define round-n-places-c
  (lambda (n)
    (lambda (x)
      (let ((pot (expt 10.0 n)))
	(/ (floor (* x pot)) pot)))))

(define foo
  (lambda (w x y z)
    (if (= w x)
	y
	z)))

(define bill (foo 1 2 3 4))

(define bar
  (lambda (w)
    (lambda (x)
      (lambda (y)
	(lambda (z)
	  (if (= w x)
	      y
	      z))))))

(define hillary ((((bar 1) 2) 3) 4))

(define fred
  (lambda (a b c d w x y z)
    (sqrt (apply + (map * (list a b c d) (list w x y z))))))

(define al (fred 1 1 1 1 2 2 2 2))

(define barney
  (lambda (a b c d)
    (lambda (w x y z)
      (sqrt (apply + (map * (list a b c d) (list w x y z)))))))

(define tipper ((barney 1 1 1 1) 2 2 2 2))