my $temp = scalar $_[0];
  return $temp - $n;