Function Find-Tree-Root

Part of:

package cl-perec
( find-tree-root < node > < parent-function > )