Pimmon - (while)

Tracklist

1	#!/usr/bin/perl	1:03
2	$power = 8;	1:03
3	sub fission {	1:02
4	fork	1:02
5	or $child = 1;	1:02
6	$power-- if $child;	1:02
7	if ($child) {exit unless --$power}	1:02
8	return $child; }	1:02
9	while (not &fission) {	1:02
10	print 0;	1:02
11	bomb:	1:02
12	while (&fission)	1:02
13	{ print 1 }	1:02
14	}	1:02
15	goto 'bomb';	1:00

Notes

The liner notes read:

While: A statement that creates a loop that evaluates an expression and, if it is true, executes a block of statements. The loop then repeats as long as the specified condition is true.

forkbomb: A program or shell script which (either intentionally or accidentally) creates new processes repeatedly using the fork system call. New processes are created so fast that within no time the process table gets filled up and the system comes to a grinding halt.

This release is limited to a worldwide edition of 250 copies.

Recommendations