#!/usr/bin/perl -w
use strict;
use MathLexer;

my $str = "5*sin(x*-4.27e-14)**4*(e-pi)";
print "  $str\n\n";

my $lex = MathLexer->new($str);

while(1) {
    my($tok, $val) = $lex->next();
    last unless defined $tok;
    printf "%8s %s\n", $tok, $val;
}