#!/usr/local/bin/perl
print do { 30000 * 8 / 60 / 24 / 365 }