my %seen; print join(' ', grep !$seen{$_}++, split), "\n" while ;