#!/usr/local/bin/perl -l
printf '%d', -6.725/0.025;