Random Couplets
Verses from Cento for Robert Creeley
Kenneth Sherwood
$verse01 = <<
HERE;
$verse02 = <<
HERE;
$verse03 = <<
HERE;
$verse04 = <<
HERE;
$verse05 = <<
HERE;
$verse06 = <<
HERE;
$verse07 = <<
HERE;
$verse08 = <<
HERE;
$verse09 = <<
HERE;
$verse10 = <<
HERE;
$VerseValue = rand(1,10);
print $VerseValue;
print "
";
if ($VerseValue == 1){
print $verse01;
} else if ($VerseValue == 2){
print $verse02;
} else if ($VerseValue == 3){
print $verse03;
} else if ($VerseValue == 4){
print $verse04;
} else if ($VerseValue == 5){
print $verse05;
} else if ($VerseValue == 6){
print $verse06;
} else if ($VerseValue == 7){
print $verse07;
} else if ($VerseValue == 8){
print $verse08;
} else if ($VerseValue == 9){
print $verse09;
} else if ($VerseValue == 10){
print $verse10;
} else {
print "error in randomization routine line 68";
} // end if
// hack to add parallel lines
$VerseValue = $VerseValue + 1;
if ($VerseValue == 11){
print $verse01;
} else if ($VerseValue == 2){
print $verse02;
} else if ($VerseValue == 3){
print $verse03;
} else if ($VerseValue == 4){
print $verse04;
} else if ($VerseValue == 5){
print $verse05;
} else if ($VerseValue == 6){
print $verse06;
} else if ($VerseValue == 7){
print $verse07;
} else if ($VerseValue == 8){
print $verse08;
} else if ($VerseValue == 9){
print $verse09;
} else if ($VerseValue == 10){
print $verse10;
} else {
print "error in randomization routine line 68";
} // end if
?>