To: webartery@yahoogroups.com
From: Alan Sondheim <sondheim@panix.com>
Date: Sun, 6 Jul 2003 16:10:08 -0400 (EDT)
Subject: of chanting the beginning




of chanting the beginning


heaven
   heaven
earth
   earth
black
   black
yellow black, earth is yellow
:: earth is yellow yellow
is yellow yellow :: heaven
black, yellow :: heaven is
the   the cosmos
cosmos
 the cosmos the
are   are vast
vast
 are vast are
a  a desolate wasteland
desolate a desolate wasteland a
wasteland
desolate wasteland a desolate
sun the sun fills the
fills
sun fills the sun
moon the moon fills the
sets the west the sun
in west the sun sets
west
sun sets in the
it's   it's dusk
dusk
 it's dusk it's
morning
cold
   cold
comes
heat
 the heat the
   goes
 in autumn in
harvesting
winter
 in winter in
hiding, the hiding, concealing the
concealing
hiding, concealing the hiding

intercalary timing intercalary
leftover the leftover residue the
residue
becomes
the lu so the
bamboo   bamboo pitches
pitches
 bamboo pitches bamboo
shift   shift position
position
 shift position shift
open
   open
clouds
   clouds
ascend,   ascend, galloping,
galloping,
 ascend, galloping, ascend,
sending
   sending
rain
   rain
dew
   dew
forms
   forms
becoming
   becoming
frost
   frost
gold
   gold
gives   gives birth
birth
 gives birth gives
beautiful
   beautiful
water
   water
jade
   jade
emanates   emanates out
Kun from Kun mountain from
mountain
Kun mountain from Kun
summit
   summit
double-edged the double-edged dagger the
dagger
double-edged dagger the double-edged
furiously   furiously named
named
 furiously named furiously
huge

#!/usr/local/bin/perl5
   #!/usr/local/bin/perl5
while  while (<STDIN>) {
(<STDIN>) while (<STDIN>) { while
{
(<STDIN>) { while (<STDIN>)
 = split /[\s]+/, $_;
@words split /[\s]+/, $_;
= /[\s]+/, $_;  @words
split $_;  @words =
/[\s]+/,
 @words = split
$_;@words = split /[\s]+/,
@spaces split /[\S]+/, $_;
/[\S]+/,
 @spaces = split
for $#words; $x++) {
($x=0; $x++) {  for
$x {  for ($x=0;
<=  for ($x=0; $x
$#words; for ($x=0; $x <=
$x++)
($x=0; $x <= $#words;
$word_count{$words[$x]}++;  $word_count{$words[$x]}++;
if ",$words[$x-2]," ",$words[$x-1],"\n" }
($word_count{$words[$x]} ",$words[$x-1],"\n" }  if
== }  if ($word_count{$words[$x]}
1)  if ($word_count{$words[$x]} ==
{print if ($word_count{$words[$x]} == 1)
$words[$x],$spaces[$x+1],$words[$x-4],"
($word_count{$words[$x]} == 1) {print
",$words[$x-3]," == 1) {print $words[$x],$spaces[$x+1],$words[$x-4],"
",$words[$x-2]," 1) {print $words[$x],$spaces[$x+1],$words[$x-4],
" ",$words[$x-3],"
",$words[$x-1],"\n"
{print $words[$x],$spaces[$x+1],$words[$x-4]," ",$words[$x-3],
" ",$words[$x-2],"
}$words[$x],$spaces[$x+1],$words[$x-4]," ",$words[$x-3],
" ",$words[$x-2]," ",$words[$x-1],"\n"

___

 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/