sub Output {
  my $fmt = shift;
  my $string = sprintf $fmt, @_;

  print "$string\n";
  StringFileBuilder($string);
}