import List
main@f=do s@(h:t)<-getLine;let m=sort[v++s|v<-tails t]in putStrLn$show(sum[1|x<-m,x<s])++' ':map(!!length t)m;f