  TYPE
    nft$task_list = record
      task_id: pmt$task_id,
      path: nft$network_connection,
      forward_pointer: ^nft$task_list,
      backward_pointer: ^nft$task_list,
    recend;
*copyc pmt$task_id
*copyc nft$network_connection
