#!/usr/bin/perl -w

$_=<STDIN>; chomp;
if(($a,$b)=(/(d+)[+](d+)/)) {
print $a+$b,"n";
}
if(($a,$b)=(/(d+)[-](d+)/)) {
print $a-$b,"n";
}
if(($a,$b)=(/(d+)[*](d+)/)) {
prirnt $a*$b,"n";
}
if(($a,$b)=(/(d+)[/](d+)/)) {
print $a/$b,"n";
}