File standardInput readLines map($,writeln("[",$split reduce(!,b,!.. if(!slice(-1)!=b,"] ["," ").. b),"]"))