#!/usr/local/bin/perl
print do { (30 * 24) / (20 * 8) }