further progress on moving functions in find_common.pl