(define hash
  (lambda (c)
   (cond
     ((null? c) **600**)
       (else
        (reduce + (map (lambda (x) (**cv x**)) c) (* **12** (hash (cdr c))))))))