Maple очень долго вычисляет

[meshok]

Доброго времени суток!
Пытаюсь вычислить с помощью Maple2019 интеграл, но не получается: ждал минут 10, а он таки не вычислил.
Пробовал задавать свои функции и таким образом

f:=(x,n,m,s)->

и таким

f:=

При втором способе вроде бы график строит быстрее, но интеграл также не считает.

n := 15;
m := 3;
s := 1;

a := 2*(2 + 2/m + s)/(n^2*(1/m + s)) + 2*(2 + s)/((n + 4)^2*(1/m + s));
l := a - 2/n^2 + 2/(n + 4)^2;

g := piecewise(0 < x, exp(-1/x), 0);

indl := piecewise(0 <= x and x <= s, 1, 0);
ind := piecewise(0 <= x and x <= 1/m, 1, 0);

f := (subs(x = 1/m - x, g)*a/(subs(x = 1/m - x, g) + g) - a + 2/n^2)*ind;
u := (subs(x = s - x, g)*l/(subs(x = s - x, g) + g) - l + 2/(n + 4)^2)*indl;

r := evalf(int(f + subs(x = -x + 1 + 1/3, u), x = 0 .. t)) + 2/n^2 
evalf(int(r, t = 0 .. 4/3))

Получается, последняя строчка для него неподъемная: интеграл от функции $r$ вычислить не может, хотя ее график строит, но тоже не быстро.

Вряд ли ведь проблема в Maple, это скорее я пытаюсь делать задачу не тем инструментарием.
Может кто-нибудь посоветовать, как поступить.

[GAA]

Формально в последней строке текста вы записали предложение «точного» вычисления интеграла с последующим приближённым вычислением результата при помощи функции evalf. (Однако подынтегральное выражение содержит числа с плавающей точкой.) Если достаточно приближённого [численного] вычисления [интеграла], то можно сразу записать
> evalf(Int(r, t = 0 .. 4/3));
Если можно вычислять с небольшой точностью, то у меня Maple 15 (Classic Worksheet) считает быстро

> evalf(Int(r, t = 0 .. 4/3, epsilon=0.00000001));
        -.7293765986e-3

(В саму задачу не вникал. Просто посчитал. Результат не проверял.)

[meshok]

Спасибо, с вашей подачи maple все-таки смог победить этот интеграл, пусть даже ему и потребовалось на это время