#!/usr/local/bin/perl
print do { 5000 * 20 }