#!/usr/local/bin/perl
print do { 2,051,961 - 1,786,500 }