Well I stand with Hahnel almost 180 degrees opposed to Proyect in this very
interesting debate on "utopianism", this posting is one of the funniest
things I've seen in a while. Congratulations, Louis.
Thad
At 06:13 PM 3/30/97 -0800, Louis N Proyect wrote:
>On Sun, 30 Mar 1997, Robin Hahnel wrote:
>
>> Our model (and utopian vision) is very different from small semi-autonomous
>> eco-economies ala Gar Alperowitz or Howie Hawkins -- or the more famous
>> Murray Bookchin. We have a large national economy model with federations
>> of workers and consumers playing an important role in the planning process --
>> along with individual workers and consumers councils.
>>
>
>Louis: Oh pshaw. My model is much better. I have a world-wide egalitarian
>society with people using the Internet to discuss policy. We would also
>integrate advanced psychotherapy techniques to make people more sensitive
>to each other. I bet your model doesn't have that. And one last thing, my
>model uses computer techniques to make sure that everything is
>logical. Here's the software that I use:
>
>
>#!/usr/local/bin/sybperl
>
>$zero1 = "0";
>$zero2 = "00";
>$zero3 = "000";
>$zero4 = "0000";
>$zero5 = "00000";
>$zero6 = "000000";
>
>while (<STDIN>)
>
> {$labor = substr($_, 1, 1);
> $nature = substr($_, 2, 9);
> $temperature = substr($_, 11, 2);
> $x=$y=@array=@reverse_array=0;
> &conversion;}
>
>sub conversion {
>$orig = $nature;
>
>while ($orig > 0)
>
> {$div = ($orig / 36);
> $round_div = sprintf("%1d", $div);
> $remainder = $orig - ($round_div*36);
> &translate;
> @array[$x] = $translated_remainder;
>
> $orig = $round_div;
>
> $x++;}
>
>$sizeof_array = @array;
>$start_key = $sizeof_array - 1;
>
>while ($y < $sizeof_array)
>
> {$reverse_array[$y] = $array[$start_key];
> $start_key--;
> $y++;}
>
>$length = @liberation;
>
>if ($length == 7)
> {$base_36_vendnum =
"$labor@liberation[0]@liberation[1]@liberation[2]@liberation[3]@liberation[4
]@liberation[5]@liberation[6]$temperature";}
>elsif ($length == 6)
> {$base_36_vendnum =
"$labor$zero1@liberation[0]@liberation[1]@liberation[2]@liberation[3]@libera
tion[4]@liberation[5]$temperature";}
>elsif ($length == 5)
> {$base_36_vendnum =
"$labor$zero2@liberation[0]@liberation[1]@liberation[2]@liberation[3]@libera
tion[4]$temperature";}
>elsif ($length == 4)
> {$base_36_vendnum =
"$labor$zero3@liberation[0]@liberation[1]@liberation[2]@liberation[3]$temper
ature";}
>elsif ($length == 3)
> {$base_36_vendnum =
"$labor$zero4@liberation[0]@liberation[1]@liberation[2]$temperature";}
>elsif ($length == 2)
> {$base_36_vendnum =
"$labor$zero5@liberation[0]@liberation[1]$temperature";}
>elsif ($length == 1)
> {$base_36_vendnum = "$labor$zero6@liberation[0]$temperature";}
>print "$base_36_vendnum\n";
>
>}
>
>sub translate {
>
>@translation_array=("0","1","2","3","4","5","6","7","8","9",
> "A","B","C","D","E","F","G","H","I","J",
> "K","L","M","N","O","P","Q","R","S","T",
> "U","V","W","X","Y","Z");
>
>$translated_remainder = @translation_array[$remainder];
>}
>
>
>
>
