#!/usr/bin/env perl

use strict;
use warnings;

my @cs = split / /,<>;
chomp$cs[2];
if ($cs[0] eq '?' || $cs[2] eq '?'){
  if ($cs[1] eq '2') {
    print 4;
  } else {
    print 1;
  }
}
else {
  print 14
}