$_ = <>;
my %h;
$h{$_}++ for ( split // );
my $not_isog = () = grep $_ > 1, values %h;
print "$_ is ", $not_isog ? 'not ' : '', "isog\n";