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