#!/usr/local/bin/perl
print do { 360717 / 1000.0 * 34 / 3600 }