sub say
{
  print(STDOUT @_);
  if ($_[$#_] !~ /\n$/)
  {
    print(STDOUT "\n");
  }
}