#!/usr/local/bin/perl
print do { 4.0/18*100 }