Path: utzoo!attcan!uunet!lll-winken!lll-lcc!ames!necntc!ncoast!allbery
From: peter@sugar.UUCP (Peter da Silva)
Newsgroups: comp.sources.misc
Subject: v03i080: Re: v03i076: Just for fun (something which once appeared on the net)
Message-ID: <8807130507.AA26710@uunet.UU.NET>
Date: 13 Jul 88 05:07:49 GMT
Sender: allbery@ncoast.UUCP
Reply-To: peter@sugar.UUCP (Peter da Silva)
Lines: 34
Approved: allbery@ncoast.UUCP

Posting-number: Volume 3, Issue 80
Submitted-by: "Peter da Silva" 
Archive-name: more-xmas

[Introducing the major motion picture:  THE CHRISTMAS THAT WOULDN'T DIE!  Now
showing at theaters near you!!!  ;-)  ++bsa]

Ratfor (from the book, with the DEC F4P Fortran):

	do(i=1,15) type *, 'Merry Christmas'
	end

Ratforth (AKA Fifth, a language I hacked up to make Forth less ugly):

	define christmas { 
		do(15,0) { 
			type(count("Merry Christmas"));
			CR;
		}
	}

This produces, by the way:

	: christmas 15 0 do " Merry Christmas" count type CR ;

AREXX:

	/* Say Merry Christmas 15 times */
	do i=1 to 15
		say 'Merry Christmas'
		end i
---
-- `-_-' Peter (have you hugged your wolf today?) da Silva.
--   U   Mail to ...!uunet!sugar!peter, flames to alt.dev.null.
-- "Running OS/2 on a '386 is like pulling your camper with an Indy car"