#!/usr/local/bin/perl
print do { 16200+27000+6480 }