graphArcs :: [Arc]
graphArcs =  [Arc S R, Arc S U, Arc U S, Arc U R, Arc V U]
graphArcs :: [Arc]
graphArcs =  [Arc S R, Arc S U, Arc U S, Arc U R, Arc V U]
graphArcs =  [Arc S R, Arc S U, Arc U S, Arc U R, Arc V U]