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