Find an Eulerian cycle traversing every edge once
FindEulerianCycle[g]
FindEulerianCycle[g, k]
FindEulerianCycle[{v -> w, …}, …]
FindEulerianCycle[{1 -> 2, 2 -> 3, 3 -> 1, 1 -> 3, 3 -> 4, 4 -> 1}]
→ {{1 3, 3 4, 4 1, 1 2, 2 3, 3 1}}FindEulerianCycle[h]//First
→ hFirst[FindEulerianCycle[h]]
→ h