/* BR2_A.G: the second order best response function for prisoner a:
            br2_a=br_a(br_b(p_a,x_b),x_a)

	    John Rust, University of Maryland, November 2005 */


    proc (2)=br2_a(x_a,x_b,p_a);

      local dfa,dfb,pa,pb;

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

      retp(pa,dfa*dfb);

    endp;