## Код:
```
-module(arr).

-export([next/1]).

next([]) -> io:format("~p~n", [overflow]), [];
next([{Min, Cur, Max}| Tail]) -> % список заранее развёрнут (reverse/1).
   if
      Cur + 1 > Max -> [{Min, Min, Max} | next(Tail)];
      Cur + 1 =< Max -> [{Min, Cur + 1, Max} | Tail]
   end.
```
