/* BR2_B.G: the second order best response function for prisoner b:
            br2_b=br_b(br_a(p_b,x_a),x_b)

	    John Rust, University of Maryland, November 2005 */


    proc (1)=br2_b(x_a,x_b,p_b);

      local pa,pb,dfa,dfb;

      {pa,dfa}=br_a(p_b,x_a);
      {pb,dfb}=br_b(pa,x_b);

      retp(pb,dfa*dfb);

    endp;