(|>) :: Sequence a -> a -> Sequence a
sq |> a = Sequence $ (getSequence sq) FT.|> (Element a)
(|>) :: Sequence a -> a -> Sequence a
sq |> a = Sequence $ (getSequence sq) FT.|> (Element a)
sq |> a = Sequence $ (getSequence sq) FT.|> (Element a)