Message-ID: <Pine.NEB.4.55.0307061609100.8775@panix2.panix.com>
From: Alan Sondheim <sondheim@panix.com>
To: Cyb <cybermind@listserv.aol.com>,
"WRYTING-L : Writing and Theory across Disciplines" <WRYTING-L@LISTSERV.UTORONTO.CA>
Subject: of chanting the beginning
Date: Sun, 6 Jul 2003 16:09:21 -0400 (EDT)
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" ___