(define sg-with-orange-juice (neighbors (find-vertex "Juice_Orange" sg)))
(define sh-with-orange-juice (neighbors (find-vertex "Juice_Orange" sh)))


(define ojsub (induced-subgraph sh sh-with-orange-juice 1))

(define ojsubv (make <graph-view> :graph ojsub :layout 'spring))

(define v (find-vertex "Juice_Orange" sh))