10 PRINT "HELLO WORLD"
20 END

program Hello (input, output)
begin
  writeln('Hello World.');
end;

(defun hello
  (print
    (cons 'Hello (list 'World.))))

#include <stdio.h>
void main(void)
{
  char *message[] = ("Hello ", "World.");
  int i;

  for (i = 0; i < 2; ++i)
    printf ("%s", message[i]);
  printf ("\n");
}

#include <iostram.h>
#include <string.h>
class string
{
  private:
    int size;
    char *ptr;
  public:
    string () : size (0), ptr (new char('\0')){}
    string (const string &s) : size(s.size)
    {
      ptr = new char (size + 1);
      strcpy (ptr, s.ptr);
    }
    ~string()
    {
      delete [] ptr;
    }
    friend ostream &operator << (ostream &, const string &);
    string &operator = (const char*);
    };
    ostream &operator << (ostream &stream, const string &amps)
    {
      return (stream << s.ptr);
    }
    string &string::operator = (const char *chrs)
    {
      if (this != &chrs)
      {
        delete [] ptr;
        size = strlen (chrs);
        ptr = new char (size + 1);
        strcpy (ptr, chrs);
      }
      return (*this);
    }
    int main()
    {
      string str;
      str = "Hello World.";
      cout << str << endl;
      return(0);
    }

#!/usr/local/bin/perl
$msg="Hello World.\n";
if ($#ARGV >= 0) {
  while (defined($arg=shift(@ARGV))) {
    $outfilename = $arg;
    open (FILE, ">" . $outfilename) || die "Can't write $arg: $!\n";
    print (FILE $msg);
    close (FILE) || die "Can't close $arg: $!\n";
  }
} else {
  print ($msg)
}
l;

#include <stdio.h>
#define S "Hello World.\n"
main() {exit (printf(S) == strlen(S) ? 0 : l);}

% cc -o a.out -/src/misc/hw/hw.c
% a.out

% cat
Hello World.
^D

10 PRINT "HELLO WORLD"
20 END

mail -s "Hello world." bob@b12
Bob, could you please write me a program
that prints "Hello World."?
I need it by tomorrow.
^D

% mail jim
I need a "Hello World." program by this afternoon.

% letter
letter: Command not found.
% mail
To: ^X ^F ^C
% help mail
help: Command not found.
% damn!
!: Event unrecognized
% logout