#!/usr/bin/perl

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