Old lady swallowed a fly: Difference between revisions

Content added Content deleted
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: Line 3,873:
("IK" "I know an old lady who swallowed a") ("SW" "She swallowed the")
("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")
("SS" "she swallowed") ("CA" "to catch the") ("XX" "Perhaps she'll die")
("C" "cow") ("G" "goat") ("D" "dog") ("T" "cat") ("R" "bird")
("C" "cow") ("G" "goat") ("D" "dog") ("@" "cat") ("R" "bird")
("S " "spider ") ("F" "fly"))
("$" "spider") ("F" "fly"))
@(bind lastverse
@(bind lastverse
("IK C"
("IK C"
Line 3,880: Line 3,880:
"SW C CA G"
"SW C CA G"
"SW G CA D"
"SW G CA D"
"SW D CA T"
"SW D CA @"
"SW T CA R"
"SW @ CA R"
"SW R CA S"
"SW R CA $"
"SW S CA F"
"SW $ CA F"
"But I don't know why SS that F"
"But I don't know why SS that F"
"XX"
"XX"
Line 3,892: Line 3,892:
("G: Opened her throat and down went the G!"
("G: Opened her throat and down went the G!"
"D: What a hog to swallow a D!"
"D: What a hog to swallow a D!"
"T: Imagine that! She swallowed a T!"
"@: Imagine that! She swallowed a @!"
"R: How absurd to swallow a R!"
"R: How absurd to swallow a R!"
"S: That wriggled and jiggled and tickled inside her"
"$: That wriggled and jiggled and tickled inside her"
"F: But I don't know why SS the F"))
"F: But I don't know why SS the F"))
@(define expand_backwards (song lengthened_song done))
@(define expand_backwards (song lengthened_song done))
Retrieved from "https://rosettacode.org/wiki/Old_lady_swallowed_a_fly"