program expresii2;
var n,k,i,j:byte;
    p:int64;
    t:array[1..35]of int64;
    f:text;
    s:string;
begin
assign(f,'expresii2.in');reset(f);
read(f,n,k,p);
close(f);
t[1]:=k;
for i:=1 to n do begin
    inc(t[i+1],t[i]);
    for j:=1 to i-1 do
        if (i+j)<=n then
            begin
            { (t[i])+(t[j]) // (t[i])*(t[j]) }
            t[i+j+1]:=t[i+j+1]+4*t[i]*t[j];
            end;
   t[2*i+1]:=t[i]*t[i]*2;
end;
assign(f,'expresii2.out');rewrite(f);
writeln(f,t[n]);
if (n=2) then write(f,'A!')
else
if n div 2=1 then begin
   for i:=1 to n div 2+1 do write(f,'A');
   for i:=1 to n div 2 do write(f,'+');
end
else begin
     for i:=1 to n div 2 do write(f,'A');
     for i:=1 to n div 2-1 do write(f,'+');
     write(f,'!');
     end;
close(f);
end.