File standardInput readLines do(slice(1)join("
")split("_")map(i,v,write(v,at(0)slice(i,i+1))))