This is the house that Jack built.

This is the malt
That lay in the house that Jack built.

This is the rat,
That ate the malt
That lay in the house that Jack built.

This is the cat,
That killed the rat,
That ate the malt
That lay in the house that Jack built.

This is the dog,
That worried the cat,
That killed the rat,
That ate the malt
That lay in the house that Jack built.

This is the cow with the crumpled horn,
That tossed the dog,
That worried the cat,
That killed the rat,
That ate the malt
That lay in the house that Jack built.

This is the maiden all forlorn,
That milked the cow with the crumpled horn,
That tossed the dog,
That worried the cat,
That killed the rat,
That ate the malt
That lay in the house that Jack built.

This is the man all tattered and torn,
That kissed the maiden all forlorn,
That milked the cow with the crumpled horn,
That tossed the dog,
That worried the cat,
That killed the rat,
That ate the malt
That lay in the house that Jack built.

This is the priest all shaven and shorn,
That married the man all tattered and torn,
That kissed the maiden all forlorn,
That milked the cow with the crumpled horn,
That tossed the dog,
That worried the cat,
That killed the rat,
That ate the malt
That lay in the house that Jack built.

This is the cock that crowed in the morn,
That waked the priest all shaven and shorn,
That married the man all tattered and torn,
That kissed the maiden all forlorn,
That milked the cow with the crumpled horn,
That tossed the dog,
That worried the cat,
That killed the rat,
That ate the malt
That lay in the house that Jack built.

This is the farmer sowing his corn,
That kept the cock that crowed in the morn,
That waked the priest all shaven and shorn,
That married the man all tattered and torn,
That kissed the maiden all forlorn,
That milked the cow with the crumpled horn,
That tossed the dog,
That worried the cat,
That killed the rat,
That ate the malt
That lay in the house that Jack built. 

house = { "Вот дом", "Который построил Джек." }
wheat = { "А это пшеница", "Которая в тёмном чулане хранится\nВ доме", house }
bird = { "А это весёлая птица-синица", "Которая часто ворует пшеницу", wheat }
cat = { "Вот кот", "Который пугает и ловит синицу", bird }
dog = { "Вот пёс без хвоста", "Который за шиворот треплет кота", cat }
cow = { "А это корова безрогая", "Лягнувшая", "Лягнувшую", " старого пса без хвоста", dog }
starushka = { "А это старушка, седая и строгая", "Которая доит корову безрогую", cow }
herdsman = { "А это ленивый и толстый пастух", "Который бранится с коровницей строгую", starushka }
pituh = { "Вот два петуха", "Которые будят того пастуха", herdsman }

function intro(object)
	return object[1] .. ",\n" .. generate(object, true) 
end

function generate(object, after_intro)
	local def = (after_intro or type(object[3]) ~= "string") and object[2] or object[3]
	if type(object[4]) == "string" then def = def .. object[4] end
	return def .. (object[3] and ",\n" .. generate(object[#object]) or "")
end

function genall(object, last_line)
	return (object[3] and genall(object[#object]) or "") .. intro(object) .. (last_line and "" or "\n\n")
end

print(genall(pituh, true))

(setq JB
  '(
    ("farmer sowing his corn" "kept")
    ("cock that crowed in the morn" "waked")
    ("priest all shaven and shorn" " married")
    ("man all tattered and torn" "kissed")
    ("maiden all forlorn" "milked")
    ("cow with the crumpled horn" "tossed")
    ("dog" "worried")
    ("cat" "killed")
    ("rat" "ate")
    ("malt" "lay in")
    ("house" nil)
  )
)

(defun That (L)
  (cond 
    ((null (car(cdr (car L)))) "That Jack built.")
    (t (format nil "That ~A the ~A,~%~A" (car (cdr (car L))) (car (car (cdr L))) (That (cdr L)) ))
  )
)

(defun Jackbuilt (L)
  (cond 
    ((null L) nil)
    (t  (format nil "~A~A" (Jackbuilt (cdr L))  (format nil   "This is the ~A  ~%~A ~%~%" (car (car L))  (That L) )))
  )
) 

(Jackbuilt JB)

data Jacks = J {
  jIntro      :: String
, jReferenced :: String
, jAction     :: Action
} deriving (Eq, Show)


data Action = A String Jacks | E String
              deriving (Eq, Show)

house    = J "Вот дом"                         "\nВ доме"           (E "Который построил Джэк.")
wheat    = J "А это пшеница"                   "пшеницу"            (A "Которая в темном чулане хранится" house)
bird     = J "А это веселая птица-синица"      "синицу"             (A "Которая часто ворует" wheat)
cat      = J "Вот кот"                         "кота"               (A "Который пугает и ловит" bird)
dog      = J "Вот пес без хвоста"              "пса без хвоста"     (A "Который за шиворот треплет" cat)
cow      = J "А это корова безрогая"           "корову безрогую"    (A "Лягнувшая старого" dog)
granny   = J "А это старушка, седая и строгая" "коровницей строгою" (A "Которая доит" cow)
cowboy   = J "А это ленивый и толстый пастух"  "того пастуха"       (A "Который бранится с" granny)
roosters = J "Вот два петуха"                  ""                   (A "Которые будят" cowboy)

expand :: Jacks -> [String]
expand j = (jIntro j ++ ",\n" ++ expandAction (jAction j) ++ "\n") : expandNext
  where
    expandAction a = case a of
        E s    -> s
        A s j' -> s ++ " " ++ jReferenced j' ++ ",\n" ++ expandAction (jAction j')
    expandNext = case (jAction j) of
        E _    -> []
        A _ j' -> expand j'

houseJackBuilt = unlines $ reverse (expand roosters)

#!/bin/sh
wget --quiet -O - 'http://lib.ru/POEZIQ/MARSHAK/marshak2.txt_Ascii.txt' | iconv --from-code=koi8-r marshak2.txt_Ascii.txt | sed -n '2559,2628p'