>>123

fn :: [a] -> [[a]]
fn xs = scanl1 (++) $ map cons xs
where cons x = [x]