sub is_iso {
(grep$_>1,map++$c{$_},split//,shift)?1:0
}


$_ = shift;
print "$_ is", ( is_iso($_)? "n't" : '' ), ' an isogram';