Question: revision of error

how can revision of error in 

restart;
u0 := proc (x) options operator, arrow; 1+2*x end proc; h := 0;
for k from 0 to 5 do U := proc (k, h) options operator, arrow; eval((diff(u0(x), [`$`(x, k)]))/factorial(k), x = 0) end proc end do;
m := h+1;
for k from 0 to 5 do U := proc (k, h) options operator, arrow; (sum(sum(U(r, h-s)*U(k-r, s), s = 0 .. h), r = 0 .. k)+(k+1)*U(k, h))/m end proc end do;
U(0, 1);
Error, (in U) too many levels of recursion

 

Please Wait...