"   "split do((b:=File standardInput readLine)foreach(v,if(v<p:=b at(0),at(0),if(p<v,at(2),at(1)))append(v)))map(print)