[_]%a=unlines a
(x:y)%a|(p,q)<-splitAt(read x)y=q%[r>>=(<$>b).min|r<-p,b<-a]
main=interact$(%["#"]).lines