#!/usr/bin/perl -w
use strict;
my @comp = split /:/,shift;
my %saw = ();
@saw{@comp} = ();
print join ":",keys %saw;