sub emphasizePrint
{
  my $k = "!!\n";
  return sub {
    my ($str) = @_;
    eval {
        print "$str$k"
    };
    print STDERR "Error: $@" if ($@);
  }
}