Had a go at translating the first generator into Lil[0]. Not quite as terse as the Perl version, but not terrible:
on b x do list random[extract list value by floor index/2 from x] end
on w do list b["cococacamamadebapabohamolaburatamihopodito"],
b["estsnslldsckregspsstedbsnelengkemsattewsntarshnknd"] end
on l do "\n\n %s %s %s" format w[],b["attoonnoof"],w[] end
sys.seed:sys.now
print["the %s%s" w[] l@range 1+random[9]]
Selecting bigrams is rather awkward, and I have to explicitly seed the random number generator, as it is deterministic by default.
[0] https://beyondloom.com/tools/trylil.html