use strict;
#------------------------------------------------------
sub a {
    my ($n)=@_;
    return $::cash[$n] if $::cash[$n];
    return 1 if $n==1;
    my $a=$n-a(a($n-1));
    $::cash[$n]=$a;
    return($a);
}
#------------------------------------------------------
sub main {
    print a(201200),"\n";
}
#------------------------------------------------------
main(@ARGV);