var i,z=0
val a="~ "*15 split"~"
for(n<-0 to'c'){z=a(i)size;i+=n%3/2-n%5/4;a(i)+=" "*(z-a(i).size)+(n+1)}
a map println