longest words where cutting off a letter one by one is still a word

gistfile1.txt

In [35]: for w in sorted(l, key=lambda x: len(x), reverse=True):
    ...:     orig = w
    ...:     wl = len(w)
    ...:     while len(w) > 2:
    ...:         w = w[:-1]
    ...:         if w not in d:
    ...:             break
    ...:     if len(w) == 2:
    ...:         print(orig)
    ...:         wwl = len(orig)
    ...:     if len(orig) < wwl:
    ...:         break
    ...:
    ...:
ballonets
balloters
barretter
barrettes
canalised
canalises
carolinas
carolines
champerty
collarets
composers
isthmians
machinery
marshalls
minimised
minimiser
minimises
patentees
patenters
photomaps
quarterns
reversers
reversist
sheathery
sheathers