Old lady swallowed a fly: Difference between revisions
→{{header|TXR}}: Fix incorrect output: S not expanded to snake; letter T in "That" expanded to cat.
m (→{{header|J}}: include result) |
(→{{header|TXR}}: Fix incorrect output: S not expanded to snake; letter T in "That" expanded to cat.) |
||
Line 3,873:
("IK" "I know an old lady who swallowed a") ("SW" "She swallowed the")
("SS" "she swallowed") ("CA" "to catch the") ("XX" "Perhaps she'll die")
("C" "cow") ("G" "goat") ("D" "dog") ("
("
@(bind lastverse
("IK C"
Line 3,880:
"SW C CA G"
"SW G CA D"
"SW D CA
"SW
"SW R CA
"SW
"But I don't know why SS that F"
"XX"
Line 3,892:
("G: Opened her throat and down went the G!"
"D: What a hog to swallow a D!"
"
"R: How absurd to swallow a R!"
"
"F: But I don't know why SS the F"))
@(define expand_backwards (song lengthened_song done))
|