#!/usr/bin/perl

$n = $ARGV[0];
$n = $n * 2.54;
print "$n\n";
