Data.List.viewL (was: Proposal: add 'equating' function to Data.List)