p:= >
"   "split do(File standardInput foreach(c,p or p=c
at(if(c<p,0,if(p<c,2,1)))append(c)))join print