plot3d[{(1-p)^k,1-p*k},{p,0,1},{k,1,5}]