load(solve_rec);

r1: a[n + 2] = 2*a[n + 1] + 3*a[n];
roz: solve_rec(r1, a[n], a[1] = 3, a[2] = 2);
a10: ev(roz, n = 10);