main=interact$f.f
f=foldl(\s a->max[a][filter(>a)s!!x|(x,_)<-reads[a]]++s)""