print join("\n", map { $_ =~ s/-//g } map { split } @words);