#!/usr/bin/perl
###########################################
# rpn - Transforn infix notation to RPM
# 2005, Mike Schilli <cpan@perlmeister.com>
###########################################
use strict;
use warnings;

use MathParser;
use RPN;

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

for my $string (qw(5+4+3 5+4*3)) {
  print "$string: [";
  for (@{ $mp->parse($string) }) {
    print "$_, ";
  }
  print "]\n";
}