my $n;
for lines() {
  $n = $_;
}

if $n == 1 {
  say $n - 1;
}
elsif $n == 2 {
  say $n - 2;
}
elsif $n == 3 {
  say $n - 3;
}
elsif $n == 4 {
  say $n - 4;
}
elsif $n == 5 {
  say $n - 5;
}