#!/usr/local/bin/perl
print do { 2.0/28*100 }