#!/bin/usr/env/perl -w

use strict;

my $x =$ARGV[0];
my $y;

$y=$x-20000;

if ($y < 0) { my $z=0; print $z}
else{
print $y;}