n:= -1;(a:=File standardInput readLines)slice(1)map($,$foreach(i,c,c!=95or$atPut(i,a at(0)at(n=n+1)))$println)