#!/bin/perl

use strict;
use warnings;

my $ans = (0, 1, 1, 0)[<> % 4];
print 15+$ans;