#!/usr/bin/perl -w
# Scheme!
#  -- Pope Boolean "LAMBDA" Lion, 5 Chaos YOLD 3170 (Mungday - write Perl!)
# On of these days, I'll port it to Scheme and make it an mzscheme script... >=)

print "(Looking for a scheme interpreter? Try 'drscheme' or 'mzscheme'.)\n\nSING ALONG NOW! Ohhh...\n";

$plural = "s";
for($bottles = 99; $bottles > 1;)
{
	print "$bottles packet$plural of brackets on the stack, ";
	`sleep 2`;
	print "$bottles packet$plural of brackets.\n";
	`sleep 1.5`;
	print "Pop one off and parse it around, ";
	`sleep 2.125`;
	$bottles--;
	$plural = ($bottles>1 ? "s" : "");
	print "$bottles packet$plural of brackets on the stack.\n\n";
	`sleep 2.25`;
}
print "1 packet of brackets on the stack, ";
`sleep 2`;
print "1 packet of brackets.\n";
`sleep 1.5`;
print "Pop one off and parse it around, ";
`sleep 2.125`;
print "no more packets of brackets on the stack.\n\n";
