scanr1 -bytestring +containers

scanr1 :: (a -> a -> a) -> Seq a -> Seq a
containers Data.Sequence
scanr1 is a variant of scanr that has no starting value argument.