{{}.0to:5}fold:(P:=[:r :a|a do:[:i|a size>1or:[r do:[:x|stdout<<x<<$ ].i printNl].{r,{i}.a copyWithout:i}fold:P]])