P() procedure P() 1