procedure main()
a:=read()
i:=0
while writes("_"~==reads()|a[i+:=1])
end