main=interact$f.lines
f(w:x)=w%unlines x
[]%s=s
(a:s)%(b:t)|b=='_'=a:s%t|1>0=b:(a:s)%t