#!/usr/bin/perl

eval 'exec perl -S $0 ${1+"$@"}'
    if 0;

# Print the string "Hello, World".

# WARNING - do not operate heavy machinery while using CLC-INTERCAL

# This file is part of CLC-INTERCAL.

# Copyright (C) 1999 Claudio Calvelli <lunatic@assurdo.com>, all rights reserved

# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either 2 of the License, or
# (at your option) any later version.

# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

use Language::INTERCAL 'hello', "
\304\326\@k\361\@L`\@{\362\360
\304\326\@k\361\@\342\344\302\@{\361\@L`\@{\371\361
\304\326\@k\361\@\342\344\302\@{\362\@L`\@{\371\365
\304\326\@k\361\@\342\344\302\@{\363\@L`\@{\370\364
\327\323\305\301\342\305\@k\361\@\342\344\302\@{\364\@L`\@{\371\365
\304\326\@k\361\@\342\344\302\@{\365\@L`\@{\366\365
\304\326\@k\361\@\342\344\302\@{\366\@L`\@{\370\363
\327\323\305\301\342\305\@k\361\@\342\344\302\@{\367\@L`\@{\370\363
\304\326\@k\361\@\342\344\302\@{\370\@L`\@{\370\370
\304\326\@k\361\@\342\344\302\@{\371\@L`\@{\371\361
\327\323\305\301\342\305\@k\361\@\342\344\302\@{\361\360\@L`\@{\367\366
\304\326\@k\361\@\342\344\302\@{\361\361\@L`\@{\366\370
\304\326\@k\361\@\342\344\302\@{\361\362\@L`\@{\371\365
\327\323\305\301\342\305\@k\361\@\342\344\302\@{\361\363\@L`\@{\370\362
\304\326\@k\361\@\342\344\302\@{\361\364\@L`\@{\371\365
\304\326\@k\361\@\342\344\302\@{\361\365\@L`\@{\370\370
\327\323\305\301\342\305\@k\361\@\342\344\302\@{\361\366\@L`\@{\367\364
\304\326\@k\361\@\342\344\302\@{\361\367\@L`\@{\370\363
\304\326\@k\361\@\342\344\302\@{\361\370\@L`\@{\367\363
\327\323\305\301\342\305\@k\361\@\342\344\302\@{\361\371\@L`\@{\360
\304\326\@k\361\@\342\344\302\@{\362\360\@L`\@{\360
\304\326\@\331\305\301\304\@\326\344\343\@k\361
\327\323\305\301\342\305\@\307\311\345\305\@\344\327
", (@ARGV == 1 && lc($ARGV[0]) eq 'list' ? (\*STDOUT) : ());
(@ARGV != 1 or lc($ARGV[0]) ne 'list') and hello();
