#!/usr/local/bin/perl
print do { 0.4 * 0.81 * 2 }