m@main=do
a:b<-getLine
putStrLn$do(n,_:s)<-reads b;([length s..n-1]>>[a])++s
m