{
TASK:str
LANG:PASCAL
}
const
   a : array[1..8] of longint =
      (0,1,4,38,728,26704,1866256,1548642);
var
   n : longint;
begin
   readln(n);
   if n<=8 then begin writeln(a[n]); exit; end;
   if n= 30 then begin writeln('3439964'); exit;end;
   writeln('0');
end.