unfoldr :: (b -> Maybe (a, b)) -> b -> [a]
Projects:
MajorMinorPerfect