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