var a,b,i,j:integer; begin readln(a,b); for i:=1 to a do for j:=1 to b do writeln('=','''',i,'.',j,'.','''','!$A$1'); end.