count:=proc(P::'x',x::name,n::evaln)    local f,m;
>     m:=0;
>     for f in p do
>        if has(f,x) then m:=m+1 end if;
>     end do;
>     n:=m;
>     evaln(m>0);
> end proc:
> count(2*x^2*exp(x)*y,x,m);
Error, invalid input: count expects its 1st argument, P, to be of type 'x', but received 2*x^2*exp(x)*y
运行后显示出错，但又不清楚问题在哪，还请大虾帮我看看啊，谢谢。