
  TYPE
    pft$p_root = ^pft$root;

