#!/usr/local/bin/perl
my$a=1/3;say$a;say$a*3;