File standardInput readLines map($,(1- $slice(2)removeSeq($slice(0,1))size/ $slice(2)size)asString(0,6)println)