#!/usr/bin/env perl

use strict;
use warnings;
use List::Util 'min';

my $n = <>; chomp $n;
my $a1 = (($n, 11)[$n > 11]) - 1;
my $a2 = $n - $a1;
print "$a1 $a2\n";