#!/usr/bin/perl
use locale;

#####Preamble
@people = qw(anyone women men noone someones everyones);
@life;
@seasons = qw(spring summer autumn winter);
@celestials = qw(sun moon stars rain);
@nature1 = qw(when tree bird stir);
@nature2 = qw(now leaf snow still);
@emotionAnyone = qw(joy grief);
@emotionNoone;
@emotionSomeones;
@emotionEveryones = qw(cryings dance);
@states = qw(sleep wake hope then);
$dreams = 2;
@moreStates = qw(little was all deep more);
#################################


#######Start poem
$pretty_how_town[0] = "anyone";
push(@pretty_how_town, "up so floating many bells down");
@seasons = @seasons;
print "didn't";
print "d\n\n";
print "\ti\n\n";
print "d\n";

if($people[1] && $people[2] && "\U$people[0]" && "\U$people[2]"&&  $pe
+ople[2] =~ /anyone/)
{

}
push(@life, "isn't");
pop(@life);
@celestials = @celestials;

$children[0] = $people[3].$people[0];
$chidren[1];
$children[0]="";

$a = $seasons[0]; $b = $seasons[1]; $seasons[0] = $seasons[2]; $season
+s[1]= $seasons[3]; $seasons[2] = $a; $seasons[3] = $b;

for($i=0, $i<=3, $i++)
{
    $nature1[$i].$nature2[$i];
    if($i<=1)
    {
        $emotionNoone[$i] = $emotionAnyone[$i];
    }
}

$people[4].$people[5];

for($i=0; $i<2; $i++)
{
    $emotionsSomeone[$i] = $emotionsEveryone[$i];
}

@states = @states;

print "nevers";
sleep $dreams;

$a = $celestials[0]; $b = $celestials[1]; $celestials[0] = $celestials
+[2]; $celestials[1]= $celestials[3]; $celestials[2] = $a; $celestials
+[3] = $b;

if($snow)
{
    print @children.$prettyhowtown[1];
}
$dead = $people[0].$people[3];
shift(@people) && shift(@people);

foreach $state (@moreStates)
{
    $state.$state;
}
$dream && sleep 0;
if($yes)
{
    $dead."earth"."april"."spirit";

}
$people[1] . $people[2] . "dong" . "ding";


$a = $seasons[0]; $b = $seasons[1]; $c = $seasons[2 ]; $seasons[2] = $
+b; $seasons[0] = $seasons[3]; $seasons[3]= $c; $seasons[1] = $a;

$sowing = pop(@life);
sub came{};

$a = $celestials[0]; $b = $celestials[1]; $c = $celestials[2]; $d = $c
+elestials[3]; $celestials[3] = $b; $celestials[1] = $d; $celestials[0
+]= $c; $celestials[2] = $a;
##
#anyone lived in a pretty how town
#
#ee cummings
#
#
#anyone lived in a pretty how town
#(with up so floating many bells down)
#spring summer autumn winter
#he sang his didn't he danced his did

#Women and men(both little and small)
#cared for anyone not at all
#they sowed their isn't they reaped their same
#sun moon stars rain
#
#children guessed(but only a few
#and down they forgot as up they grew
#autumn winter spring summer)
#that noone loved him more by more
#
#when by now and tree by leaf
#she laughed his joy she cried his grief
#bird by snow and stir by still
#anyone's any was all to her
#
#someones married their everyones
#laughed their cryings and did their dance
#(sleep wake hope and then)they
#said their nevers they slept their dream
#
#stars rain sun moon
#(and only the snow can begin to explain
#how children are apt to forget to remember
#with up so floating many bells down)
#
#one day anyone died i guess
#(and noone stooped to kiss his face)
#busy folk buried them side by side
#little by little and was by was
#
#all by all and deep by deep
#and more by more they dream their sleep
#noone and anyone earth by april
#wish by spirit and if by yes.
#
#Women and men(both dong and ding)
#summer autumn winter spring
##reaped their sowing and went their came
#sun moon stars rain
[download]