I'd like to add a function

fromListReversing :: [a] -> Seq a

to Data.Sequence, with

fromListReversing
  = reverse . fromList
  = fromList . reverse

I don't know just what to call this function, however.