(map (lambda (x) 
	(set! (size x) (quotient (size h2) (degree x))))
		(vertices hv2))

(define (product-weight v edge-list)
	(cond ((null? edge-list) 0)
	      (#t (+ (size (vertices (car edge-list)))
		     (product-weight v (cdr edge-list))))))

(map (lambda(x) 
	(set-double-attribute! 'weight 
	    (product-weight x (set-edge->list (incident-edges x))) x))
     (set-vertex->list (vertices h2)))