|
*Begin biosphere |
||||
|
START |
RUN |
|||
|
EVOLUTION |
DOUNTIL |
ETERNITY |
||
|
ADD |
1 |
X |
||
|
ORGANISM(X) |
IFNOT |
VIABLE |
||
|
MOVE |
ORGANISM(X) |
OUT |
||
|
ENDIF |
||||
|
ORGANISM(X) |
IFEQUAL |
AVERAGE-TAXPAYER |
||
|
AVERAGE-TAXPAYER |
||||
|
ENDIF |
||||
|
ENDDO |
||||
|
STOP |
RUN |
|||
|
*End biosphere |
©2001 JanBais The
Algorithm of an Average Taxpayer's Life The
Hague The Netherlands