sub sum_integers {
    my ($a, $b) = @_;
    if ($a > $b) { return(0); }
    else { return( $a + &sum_integers(($a + 1), $b) ); }
}

sub cube {
    my ($a) = @_;
    return( $a * $a * $a );
}

sub sum_cubes {
    my ($a, $b) = @_;
    if ($a > $b) { return(0); }
    else { return( &cube($a) + &sum_cubes(($a + 1), $b) ); }
}