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 <iostream.h>
#include <string.h>

class string
    {
    private:
        int size;
        char *ptr;

    public:
        string( void ) : size( 0 ),ptr( new char( '\0' ) ) {}
        string( const string &s ) : size(s.size)
            {
            ptr = new char[size + 1];
            strcpy( ptr,s.ptr );
            }
        ~string( void )
            {
            delete [] ptr;
            }
    friend ostream &operator<<( ostream &stream,const string &s );
    string &operator=( const char *chrs );
    };

ostream &operator<<( ostream &stream,const string &s )
    {
    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( int,char ** )
    {
    string str;

    str = "Hello World";
    cout << str << endl;

    return 0;
    }

#include <unistd.h>

int main( int argc,char *argv[] )
    {
    char table[] = "Helo Wrd\n";
    char str[] = { 1,34,52,83,98,120,0 };
    char *t;

    for ( *t = str;*t;t++ )
        {
        write( 0,&table[*t >> 4],1 );
        write( 0,&table[*t & 0xF],1 );
        }
    return 0;
    }

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

#include <stdio.h>
#define S "Hello World\n"

main(){exit(printf(S) == strlen(S) ? 0:1);}

% 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

% zmail jim
I need a "Hello, world." program by this afternoon.

C:> letter
Bad command or filename
C:> help letter mail
Bad command or filename
C:> damn!
Bad command or filename
C:> exit