main=interact(#1) []#_=[] x#n=take n x++'\n':drop n[c|c<-x,c>' ']#(n+1)