object
  method add :
    string ->
    ('Pxp_document.node #Pxp_document.extension as 'a) Pxp_document.node ->
    unit
  method find : string -> 'Pxp_document.node
end