#include<bits/stdc++.h>
using namespace std;
char sa[1001];
int a[1001],b,c[1001],d,la,lc;
int main(){
	cin>>sa,b=13;
	la=strlen(sa),lc=1;
	for(int i=0;i<la;i++) a[i+1]=sa[i]-'0';
	for(int i=1;i<=la;i++) c[i]=(d*10+a[i])/b,d=(d*10+a[i])%b;
	while(c[lc]==0&&lc<la) lc++;
	for(int i=lc;i<=la;i++) cout<<c[i];
	return 0;
}