j=0                                                           //initialize variable j

VERSE0
call string { LIBRARY }
M01 G01 G02 K02 C01 M12 D15.
A02 M03 D03 G01 E07 E15.
A02 B18 G01 G10 F01 L02 B01 C07,
L01 C18 N03 N12 C01 C06 K01 M02.

goTo CODA


CODA

j = j + 1   //step increase loop
 while remainder (j / 3) = 0 //identify every 3rd stanza
 goto VERSE0 //call Verse0
 POSEG = concatenate "VERSE" + j//define Poem Segment
goto POSEG   //call Poem Segment

VERSE1
call string { LIBRARY }
A01 C02 M08 B02 N08 D07 B13
B01 E01 E05 F01 C13 B01 H10 C02 F15.
A01 E18 E01 G15 F18 F01 D01 K04:
F07 D13 L04 B01 E13 E03 K10 H15.

goTo CODA


VERSE2
call string { LIBRARY }
A01 M04 B04 F02 F01 F13,
N02 D02 C04 C02 L10 D02 C04 N01 L19.
A01 G13 D01 G07 B02 M10 D06,
L01 D01 H02 A09 C01 A04...

goTo CODA


VERSE4
call string { LIBRARY }
N10 H07 C01 E01 H13 F01 H01 A11,
H01 E06 B09 F03 L01 G18 N04:
E01 K15 F05, F06 C01 K07 L15 B11 M15 G17
N15 L07 A02 K13 G05 D01 G06 M07...

goTo CODA


VERSE5
call string { LIBRARY }
H01 C11 H6 D04 K06,
H01 C09 D09 D04 E09 D03 D11 E11.
A03 H05 G01 B03 A03 F09 N07
B01 F11 G04 C01 A04 H01 L13 A16 H01 B16

goTo CODA


VERSE7
call string { LIBRARY }
A01 N01 G09 C16 E04 H04 L06
B01 H09 E01 G11 D16 C01 K09.
A01 N01 M06 H01 K05 G03 L09
M13 A08 B01 H11 N13 L05

goTo CODA


VERSE8
call string { LIBRARY }
K18, A18 K11 E16 F16 C01 L18 M18 B03
B01, M09, K01 L11 H03 G16 H16 K16.
E03? -- G01 B14 G03 E01 H03...
M11 C14 D01 D14 L16, B01 D02 A01 M05 N11...

goTo CODA


VERSE10
call string { LIBRARY }
A01 M19 A12 K19 E04 A05 N09 B12
C12 D01 M16, B01... N05 - B08.
D12 K01 G01 A10 F01 N16 B10 C03
E12 E14 C01 N18 D01 C08 N06.

goTo CODA


VERSE11
call string { LIBRARY }
F14 E02 A17 G14 D01 C10, L01 E01 D08 A19 B17 B19 F04.
K03 E02 E08 H18 B05, H14 A07 F04 - H18 F08.
A01 D10 E01 K03 C17 C03 L19 F12, B01 A01 F03 K14 C01 D17 D01 C05.
E02 E17 F17 D01 E10 G12 B04 C19 G08.

goTo CODA


VERSE13
call string { LIBRARY }
E01 H12 G17 B02 A06 H17;
D05 L14 K12 D01 K17;
A01 D19 M14 E01 E19 L17 H08;
A01 M19 M17 F01 E01 F19 N14 F01 H03 A15.

goTo CODA


VERSE14
call string { LIBRARY }
M01 G01 G02 K02 C01 L02:
M01 K01 M03 B01 G01 G19 A01 B15.
C15 B06 H19 N17 D01 B07 K08
A01 N19 L12 A18 C01 F10 L08. N03 M02.

goTo END


LIBRARY

ABCDEFGHKLMN
01Iandtomytheofatheirthatbutthere'scould
02theywithwashowyouamplitudesonorouscreatorsqualityclosureanymorebetween
03they'veworldwouldlikewhathavefromthisnextyearhumnot
04seebyitisanmeaccountabilityastronauticalenvironmentobservationprioritizedcommonality
05undergroundprojectilessovereigntyultravioletdefinitionindividualcomprehendterraformedtrajectorycrisscrossaberrantlyrecovering
06eukaryoticperfectionrecognizeproposalsmisguidedmotivatedproject'sfrugalityfugaciousschematictransposeanimosity
07surprisedinspiringfinalitylearningmahoganymeasuredcampaignignorantevaluatepossiblemodalitydepleted
08imperialhonestlygrievousnetworksapprovedferocityvelocityelectriccynosureanythingcreatedmachine
09refusedstancespresenteconomynothingalreadyprovidereverseexhaustradiansfranklyparking
10speciesemotionneuralsassumedcounterimprovesymboldriveswasn'tversussubtlewholly
11circushigherfuturethriftspendsrejectoxygenmetricpeoplesuitesaskingbehave
12hidinggaragebidingironicemploye.m.p.attackoceansnuzzlelongerclosebuilt
13pointsevengoalseverynoteddeltabeganstemscan'tmeanswhereunits
14thesevisitaboutcyclelogicfirstafterwhichgrownwindssmellstate
15placeadorewhiletagsdoorminefullfineloneselfthanit's
16thruendsthemfarmjustwantplanI'vemadelogstimesuch
17wentworksteplovewillknowteamenvyfaceboilgladbeen
18needareI'mtenhadrunoneERRORyesgetoffout
19allforitscanairnewhuehasinbeamno


END