-- Set the rule of a Shunt structure.
rule :: Shunt a -> Rule a -> Shunt a
rule (S tt st oo _) = S tt st oo
rule :: Shunt a -> Rule a -> Shunt a
rule (S tt st oo _) = S tt st oo
rule (S tt st oo _) = S tt st oo