type vector=array[0..10000] of longint;
var f1,f2:text; i,j,n,b,x,c,m,nr:longint; v:vector;
begin
assign(f1,'patrate2.in');
reset(f1);
assign(f2,'patrate2.out');
rewrite(f2);
read(f1,n);
v[0]:=1;
v[v[0]]:=1;
for j:=1 to n*n do
begin
  m:=0;
  for i:=1 to v[0] do begin
    v[i]:=v[i]*2;
    v[i]:=v[i]+m;
    m:=v[i] div 10;
    v[i]:=v[i] mod 10;
  end;
  while m>0 do begin
    inc(v[0]);
    v[v[0]]:=m mod 10;
    m:=m div 10;
  end;
end;
for i:=v[0] downto 1 do write(f2,v[i]);
close(f1);
close(f2);
end.