init
group
    inits
    2
    take
m3
fold-product
unlines