Question: Error ( ) to many levels of recursion

Hi,
First of all I am not an expert in using Maple. 
When I execute the following code, it runs without an error:
----------------
restart;  

with(plots):

g:=(x,y)->sin(((1+x^2+y^2))*(Pi/2)) ;                                                                            

 q:=(n,k,x)->binomial(n,k)*(((1+x)/2)^k)*((1-x)/2)^(n-k) ;                                                            

  K:=(n,m,x,y)->((1+n)/2)*((1+m)/2)*sum(q(n,k,x)*sum(q(m,j,y)*int(int(g(t,u),u=2*(j/(m+1))-1..2*((j+1)/(m+1))-1),t=2*(k/(n+1))-1..2*((k+1)/(n+1))-1),j=0..m),k=0..n);                                                                      

p1:=plot3d(g(x,y),x=-1..1,y=-1..1,color=blue):                                                                       p2:=plot3d(K(30,30,x,y),x=-1..1,y=-1..1,color=brown):                                                                    

display([p1,p2]);
---------
However, when I execute the following code,  I get the error message "to many levels of recursion"
---------
restart;                                                                                                                

with(plots):                                                                                                          

 g:=(x,y)->sin(Pi*(x+y))*(x^2+y^2);                                                                  

 q:=(n,k,l,x,y)->binomial(n,k)*binomial(n-k,l)*(((1+x)/2)^k)*(((1+y)/2)^l)*(1-((1+x)/2)-((1+y)/2))^(n-k-l) ;                                              K:=(n,x,y)->(((1+n)*(2+n))/4)*sum(sum(q(n,k,l,x,y)*int(int(q(n,k,l,t,u)*g(t,u),u=-1..-t),t=-1..1),l=0..n-k),k=0..n);  p1:=plot3d(g(x,y),x=-1..1,y=-1..-x,color=blue):                                                                      

 p2:=plot3d(K(1,x,y),x=-1..1,y=-1..-x,color=brown):                                                                  

p3:=plot3d(K(2,x,y),x=-1..1,y=-1..-x,color=yellow):                                                                

p4:=plot3d(K(5,x,y),x=-1..1,y=-1..-x,color=green):                                                                    

p5:=plot3d(K(10,x,y),x=-1..1,y=-1..-x,color=red):                                                              

   display([p1,p2,p3,p4,p5]);
--------
Could you please help me with this problem. Thanks in advance.

Please Wait...