take :: Index -> Sequence a -> Sequence a
take n = Sequence . fst . FT.split (Size n <) . getSequence
take :: Index -> Sequence a -> Sequence a
take n = Sequence . fst . FT.split (Size n <) . getSequence
take n = Sequence . fst . FT.split (Size n <) . getSequence