unstick :: Graph -> Graph
unstick g = fmap (\ l -> if null l then (range . bounds) g else l) g
unstick :: Graph -> Graph
unstick g = fmap (\ l -> if null l then (range . bounds) g else l) g
unstick g = fmap (\ l -> if null l then (range . bounds) g else l) g