var a,b,c,d,n:integer;
procedure dg(x,y,l:integer;z:string);
var i:integer;
    s:string;
begin
  if x=0 then begin
    if l=n  then begin
     a:=a+1;
     writeln(a,':',d,'=',copy(z,1,length(z)-1));
     end;
  end else begin
for i:=y to x-(l-n)*y do begin
    str (i,s);
   dg(x-i,i,l+1,z+s+'+');
   end;
end;
end;
begin
a:=0;
readln(d,n);
dg(d,1,0,'');
end.