#!/usr/local/bin/perl -w

use strict;

print "Math - by Patrick König\n";

sub calcString {

    my @plus = split(/\+/,$_[0]);
    my @minus = split(/-/,$_[0]);
    my @mult = split(/\*/,$_[0]);
    my @geteilt = split(/\//,$_[0]);

    my $end = 0;
    
    if($#plus != 0) {
        foreach my $i (@plus) {
            print "$i + $end = ";
            $end = $i + $end;
            print "$end\n";
        }
    }

    if($#minus != 0) {
        my $n = 0;
        foreach my $i (@minus) {
            if($i != 0) {
               
 if($#minus != $n) {
               
 print "$i - $minus[$n+1] = ";
               
 $end = $i - $minus[$n+1];    
               
 print "$end\n";
               
 $n++;
               
 }
            }
        }
    }

    if($#mult != 0) {
        my $n = 0;
        foreach my $i (@mult) {
            if($#mult != $n) {
               
 if($n == 0) {
               
     print "$i * $mult[$n+1] = ";
               
     $end = $i * $mult[$n+1];
               
     print "$end\n";
               
 } else {
               
     print "$end * $mult[$n+1] = ";
               
     $end = $end * $mult[$n+1];
               
     print "$end\n";
               
 }
               
 $n++;
            }
        }
    }

    if($#geteilt != 0) {
        my $n = 0;
        foreach my $i (@geteilt) {
            
        }
    }

print $end;

}

my $term = "2*5*2";

print "Calculateing ".$term." =\n\n\n";

calcString($term);