##
use cout;
print << 'Hello World!\n';
####
query::statement->execute('SELECT "Hello World!\n"');
####
procedure perl is begin(print 'Hello World!\n')
####
'Hello World!\n'; ?>
####
use LC0.ascii /Hello, world!/;
movl $LC0, (%esp);
####
print *, "Hello World!",
e\nd