use strict;
#------------------------------------------------------
sub a {
my ($n)=@_;
my @cash;
$cash[1]=1;
for(my $i = 2 ; $i <= $n; $i++)
{
$cash[$i]=$i - $cash[$cash[$i-1]];
}
}
#------------------------------------------------------
sub main {
}
#------------------------------------------------------
main(@ARGV);
dXNlIHN0cmljdDsKIy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQpzdWIgYSB7CiAgICBteSAoJG4pPUBfOwoKICAgIG15IEBjYXNoOwogICAgJGNhc2hbMV09MTsKCiAgICBmb3IobXkgJGkgPSAyIDsgJGkgPD0gJG47ICRpKyspCiAgICB7CiAgICAgICAkY2FzaFskaV09JGkgLSAkY2FzaFskY2FzaFskaS0xXV07CiAgICB9CgogICAgcmV0dXJuKCRjYXNoWyRuXSk7Cn0KIy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQpzdWIgbWFpbiB7CiAgICBwcmludCBhKDIwMTIwMCksIlxuIjsKfQojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCm1haW4oQEFSR1YpOwo=