#include <cstdio>
#include <cstring>

#define SIZE 10000
#define NR_CIFRE 10000

int a[SIZE], aa[SIZE], aaa[SIZE], b[SIZE], c[SIZE];

void add(int A[], int B[])
{
      int i, t = 0;
      for (i=1; i<=A[0] || i<=B[0] || t; i++, t/=10)
              A[i] = (t += A[i] + B[i]) % 10;
      A[0] = i - 1;
}

void mul(int A[], int B)
{
      int i, t = 0;
      for (i = 1; i <= A[0] || t; i++, t /= 10)
              A[i] = (t += A[i] * B) % 10;
      A[0] = i - 1;
}

void MUL(int A[], int B[])
{
      int i, j, t, C[NR_CIFRE];
      memset(C, 0, sizeof(C));
      for (i = 1; i <= A[0]; i++)
      {
              for (t=0, j=1; j <= B[0] || t; j++, t/=10)
                      C[i+j-1]=(t+=C[i+j-1]+A[i]*B[j])%10;
              if (i + j - 2 > C[0]) C[0] = i + j - 2;
      }
      memcpy(A, C, sizeof(C));
}

void sub(int A[], int b)
{
	int i;

	for(i = 1; i <= A[0]; i++)
	{
		if(A[i]-b >= 0)
		{
			A[i] -= b;
			i = A[0]+1;
		}
		else
		{
			A[i] = A[i] + 10 - b;
			b = 1;
		}
	}

	if(A[A[0]] == 0)
		A[0]--;
}

void read()
{
	freopen("sarpe.in", "r", stdin);
	freopen("sarpe.out", "w", stdout);

	char t1[SIZE];
	int i;

	scanf("%s", &t1);
	
	a[0] = aa[0] = aaa[0] = strlen(t1);

	for(i = 1; i <= a[0]; i++)
		a[i] = aa[i] = aaa[i] = t1[a[0]-i] - '0';


}

int main()
{
	int i;

	read();

	if(a[0] == 1 & a[1] == 1)
	{
		printf("2\n");
		return 0;
	}
	
	sub(a, 1);
	sub(aa, 2);
	mul(aaa, 4);

	MUL(a, aa);
	mul(a, 2);

	add(a, aaa);

	for(i = a[0]; i >= 1; i--)
		printf("%d", a[i]);
	
	printf("\n");
		
	return 0;
}