-- Particular function that returns all final segments of the argument, longest first
tails :: [a] -> [[a]]
tails = reverse . map reverse . inits . reverse