#!/usr/local/bin/perl
print do { 32577 - 31816 }