tails package:mono-traversable

tails :: IsSequence seq => seq -> [seq]
mono-traversable Data.Sequences
Returns all the final segments of seq with the longest first. 
> tails [1,2]
[[1,2],[2],[]]
> tails []
[[]]
initTails :: IsSequence seq => seq -> [(seq, seq)]
mono-traversable Data.Sequences
Return all the pairs of inital and final segments of seq. 
> initTails [1,2]
[([],[1,2]),([1],[2]),([1,2],[])]
> initTails []
[([],[])]