#!/usr/local/bin/perl -l
print int(-6.725/0.025);