dressUp : Graph String () -- node labels are strings, edge labels are empty dressUp = let nodes = [ Node 0 "Socks" , Node 1 "Undershirt" , Node 2 "Pants" , Node 3 "Shoes" , Node 4 "Watch" , Node 5 "Shirt" , Node 6 "Belt" , Node 7 "Tie" , Node 8 "Jacket" ] e from to = Edge from to () edges = [ e 0 3 -- socks before shoes , e 1 2 -- undershorts before pants , e 1 3 -- undershorts before shoes , e 2

