uses
  crt;
var
  n,m,i,j,c:integer;
  a:array [0..60000] of integer;
  ch:char;
begin
  clrscr;
  fillchar(a,sizeof(a),0);
  readln(n,m);
  a[1]:=n;
  a[0]:=1;
  c:=0;
  for i:=2 to m do
    begin
      for j:=1 to a[0] do
        begin
          a[j]:=a[j]*n+c;
          c:=a[j] div 10;
          a[j]:=a[j] mod 10
        end;
      while (c>0) do
        begin
          inc(a[0]);
          a[a[0]]:=c;
          c:=a[a[0]] div 10;
          a[a[0]]:=a[a[0]] mod 10
        end
    end;
  writeln(n,'^',m,'=');
  for i:=a[0] downto 1 do write(a[i]);
  writeln;
  write('Length=',a[0]);
  readln;
end.