a nano-nanogenmo entry:

cat 4300-0.txt 2814-0.txt|python3 -c "import sys,re;w=set(re.split(r'[^A-Za-z\'’.\-,?\!;:]',sys.stdin.read()));l=['Once']
while w:l.append(min(w,key=lambda x:len(set(x)^set(l[-1]))));w.remove(l[-1])
print('DUBLIN WALK\nMartin O\'Leary\n\n'+' '.join(l))"

walks through joyce's ulysses and dubliners, picking words with similar spelling to the previous word

output: https://gist.github.com/mewo2/3e6ad222e516367ada96fbd8c9a1106d

(cc @nickmofo)