File standardInput readLines join splitNoEmpties("-")map($,($split(" * ")size/2|0)println)