set_ns(rosettacode); add_clump(myClump)_row(a,b,c,d)_row(A,B,C,D,E,F)_row(-1,0,1,2,3); // The default spread is presumed to be 'origin' add_var(output,columnArray); with_clump(myClump)_foreach()_bycol()_var(columnArray) with_var(output)_append()_flat([columnArray])_append(\n); ; me_msg([output]); reset_ns[];