n:= -1;(a:=File standardInput readLines)slice(1)map($,$foreach(i,c,c!=95or$atPut(i,a at(0)at(n=n+1)))$println)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page