#! /bin/bash
# \
    export TCL_LIBRARY=$HOME/tcl/lib/tcl ; \
    exec /usr/local/bin/tclsh $0 "$@"

array set Env \
    [list \
         {wlFile}  {wordhash.tcl} \
        ]

source $Env(wlFile)

foreach {ix dat} [array get wordhash] {

    foreach aword $dat {
        set words($aword) {}
    }
}

unset wordhash

foreach aword [array names words] {

    if {[regsub {ee} $aword {a} changedword] == 1} {

        if {[info exists words($changedword)]} {
            set sol($aword) $changedword
        }
    }
}

parray sol

exit 0