#!/usr/bin/perl

$x=9; $y=2; print 2*$x/3*$y-1,"\n";