sub calc{
 my ($part) = @_;
 while($part =~ s!(\d+)\s*([\*\/])\s*(\d+)!subcalc($1,$2,$3)!eg){};
 while($part =~ s!(\d+)\s*([\+\-])\s*(\d+)!subcalc($1,$2,$3)!eg){};
 return $part;
}

sub subcalc{
  my ($x1,$y,$x2) = @_;
  if($y eq '*'){
      return mal($x1,$x2);
  }
  elsif($y eq '/'){
      return div($x1,$x2);
  }
  elsif($y eq '+'){
      return plus($x1,$x2);
  }
  elsif($y eq '-'){
      return minus($x1,$x2);
  }
  else{
      return 0;
  }
}