hr H . P .Prior