#!/usr/local/bin/perl
print do { 4000*1.08*50 }