File standardInput readLines join splitNoEmpties("-")map($,($removeSeq(" ")size/5)println)