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