#!/usr/bin/perl
###########################################
# addmult 
# 2005, Mike Schilli <cpan@perlmeister.com>
###########################################
use strict;
use warnings;

use MathParser;
use AddMult;

my $mp = MathParser->new(AddMult->new());

for (qw( 5+2*3 5+2+3 5*2*3 5*2+3)) {
    print "$_: ", $mp->parse($_), "\n";
}