Had a go at translating the first generator into Lil[0]. Not quite as terse as the Perl version, but not terrible:<p><pre><code> 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]]
</code></pre>
Selecting bigrams is rather awkward, and I have to explicitly seed the random number generator, as it is deterministic by default.<p>[0] <a href="https://beyondloom.com/tools/trylil.html" rel="nofollow noreferrer">https://beyondloom.com/tools/trylil.html</a>