#!/usr/bin/perl -w

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