add takeR(:: Int -> Seq a -> Seq a) and dropR(:: Int -> Seq a -> Seq a)

Data.Sequence has both `takeWhileR` and `dropWhileR` but no `takeR` or `dropR`.