parallelSteps :: Step g -> Step g -> Step g
parallelSteps (Step items1) (Step items2) =
    Step (items1 >< items2)
parallelSteps :: Step g -> Step g -> Step g
parallelSteps (Step items1) (Step items2) =
    Step (items1 >< items2)
parallelSteps (Step items1) (Step items2) =
    Step (items1 >< items2)