#!/afs/athena/contrib/perl5/perl

$readline::rl_completion_function = "main::complete";

use Term::ReadLine;

$term = new Term::ReadLine 'readlineish';
while(1){
    $_ = $term->readline("calc5-> ");
    $_=';'.$_.';';
    s/(\*\*|=|\*|\/|\-|\+)/ $1 /g;
    s/(\W|=)([abcdefghijklmnopqrstuvwxyz]+)(\W)/$1\$$2$3/gi;
    $_=substr($_,1);
    chop;
    
    print("$_\n") if $evalprint;
    eval("\$a = $_");
    printf("a: %.$truncate"."f",$a);
    print("\n");
}

sub complete {
    my($c, $fullline, $i) = @_;
    $c;
}