i:=0
File standardInput readLines reduce($,\,if($split contains("".. i=i+1),\.."
"..\,\)println$)