Function Root-Parent

Part of:

package tinaa
( root-parent < part > )

Go up the parent chain until there are no parents... that's the root.