decom:=proc(n::posint,m::posint)
> local a,c,d::posint,e,f,i,j,k,l,s,t,u;s:=[];t:={};u:={};
> if m=n then return [[1$m]];fi;
>  for i from 1 to nops(decom(n-1,m)) do
>   a[i]:=op(i,decom(n-1,m));# a is a list
>   c[i]:=[op({op(a[i])})];
>   #d[i,j]:=coun(a[i],op(j,c[i]));#c:unrepeated numbers in a. d:number of repeatance
>    for k from 1 to nops(c[i]) do
>     e[i,k]:=aadd1(c[i],k);

decom:=proc(n::posint,m::posint)
> local a,c,d::posint,e,f,i,j,k,l,s,t,u;s:=[];t:={};u:={};
> if m=n then return [[1$m]];fi;
>  for i from 1 to nops(decom(n-1,m)) do
>   a[i]:=op(i,decom(n-1,m));# a is a list
>   c[i]:=[op({op(a[i])})];
>   #d[i,j]:=coun(a[i],op(j,c[i]));#c:unrepeated numbers in a. d:number of repeatance
>    for k from 1 to nops(c[i]) do
>     e[i,k]:=aadd1(c[i],k);

For example, in the list [1,1,1,1,2,4,6,1,9], how many 1s are there?

Is there a procedure in Maple? Or how can I manage to do it?