{
TASK:risc
LANG:PASCAL
}
var
n:integer;
begin
readln(n);
if n=1 then begin writeln('4'); writeln('A'); writeln('B'); writeln('+'); writeln('+'); end;
if n=2 then begin writeln('6'); writeln('A'); writeln('B'); writeln('B');
writeln('+'); writeln('+'); writeln('+'); end;
if n=3 then begin writeln('8'); writeln('?');
writeln('B');
writeln('+');
writeln('+');
writeln('+');
writeln('+');
writeln('+');
writeln('LOOP');
end;
end.