void fill_hook_table ()
{
  void set_pointers (ulong access_key)
  {
    set_hook_table (access_key, &cmd),
    {
      cmd = {
              free : destroy_tree_node
            }
    };
  }

  set_hook_table (&cmd),
  {
    cmd = {
            st : tree_node,
            fp : set_pointers
          }
  };
}

ú
ú
ú

vb node, p_tree_node node' = alloc (T_STRUCT, tree_node <long_file_fragment>);