File standardInput readLines map(n,for(i,0,n size/3-1.1,n=n atInsertSeq(n size-(i*4+3),","))n println)