#!/usr/bin/perl -w
use v5.14;

my ($a, $b) = split ' ', <>;
$| = 1;
say $a - $b;