From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 107f24,626a0a064b320310
X-Google-Attributes: gid107f24,public
X-Google-Thread: f4fd2,626a0a064b320310
X-Google-Attributes: gidf4fd2,public
X-Google-Thread: 103d24,626a0a064b320310
X-Google-Attributes: gid103d24,public
X-Google-Thread: 103376,ea8ea502d35ca2ce
X-Google-Attributes: gid103376,public
X-Google-Thread: 10259a,626a0a064b320310
X-Google-Attributes: gid10259a,public
X-Google-Thread: 1164ba,626a0a064b320310
X-Google-Attributes: gid1164ba,public
X-Google-Thread: 114809,626a0a064b320310
X-Google-Attributes: gid114809,public
X-Google-ArrivalTime: 2001-05-22 17:38:46 PST
Path: 
 archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!nntp-relay.ihug.net!ihug.co.nz!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!nntp.newsfirst.net!newshub.more.net!news.more.net!silver.truman.edu!150.243.160.90
From: "Chad R. Meiners" <crmeiners@hotmail.com>
Newsgroups: 
 comp.lang.ada,comp.lang.lisp,comp.lang.smalltalk,comp.lang.basic,comp.lang.functional,comp.lang.scheme,comp.lang.perl
References: <9cukad$nn68@news-dxb>
 <q9n6ft0pbn903d5gqqbjfjns0ae0kfvra9@4ax.com> <9d6b6e$1bt$1@nh.pace.co.uk>
 <87snihxiwc.fsf@frown.here> <9dbi83$sji$1@nh.pace.co.uk>
 <87heyu7cqd.fsf@frown.here> <9dc20p$hh15e$1@ID-37382.news.dfncis.de>
 <slrn9fkbvd.1lom.markv@peewee.telescopemaking.org>
 <3AFA91BE.BB9E4C8F@brighton.ac.uk> <s3g0ed9v8f.fsf@bigfoot.com.cmm>
 <m366f1yy1g.fsf@chaos.resnet.gatech.edu> <3B0A74D9.2A811C9D@brighton.ac.uk>
Subject: Re: Beginner's Language?
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2462.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2462.0000
Message-ID: <3b0b0533.0@silver.truman.edu>
Date: Tue, 22 May 2001 19:44:50 -0500
NNTP-Posting-Host: 150.243.160.9
X-Trace: news.more.net 990578322 150.243.160.9 (Tue, 22 May 2001 19:38:42 CDT)
NNTP-Posting-Date: Tue, 22 May 2001 19:38:42 CDT
Xref: archiver1.google.com comp.lang.ada:7701 comp.lang.lisp:10603
 comp.lang.smalltalk:10028 comp.lang.functional:5770 comp.lang.scheme:3973
 comp.lang.perl:2889
Date: 2001-05-22T19:44:50-05:00
List-Id: <comp.lang.ada>

Strange you should ask for one.  I wrote this when I was a first year
college student just learning the language.  I don't make any claims that it
is wonderful.

with Ada.text_IO; use Ada.text_IO;
Procedure hierarchy_of_need is
Type hierarchy is (nothing, faith, trust, truth,acceptance,love);
Package Hierarchy_IO is new Ada.Text_IO.Enumeration_IO(hierarchy);
use Hierarchy_IO;
Procedure hierarchy_is(Current_Level : hierarchy) is
 begin
  If Current_Level <hierarchy'pred(hierarchy'last) then
   hierarchy_is(hierarchy'succ(Current_level));
  end if;
  Put(hierarchy'succ(Current_Level));
  Put(" requires ");
  Put(Current_Level);
  new_line;
 end hierarchy_is;
begin
 Hierarchy_is(nothing);
end hierarchy_of_need;

-Chad R. Meiners

"John English" <je@brighton.ac.uk> wrote in message
news:3B0A74D9.2A811C9D@brighton.ac.uk...
not specific to perl..................
>
> Go on then, write me a poem in Lisp (or Cobol, or Ada, or Java)... :-)
>