sub isEmpty
{
  defined $_[0] or return 1;
  return !($_[0] =~ tr|||c);
}