#!/usr/bin/perl -l
$_ = shift;

print"$_ is",(grep$_>1,map++$c{$_},split//)?"n't":'',' an isogram';