А>-module(star_proc).
А>-export([start/1]).

А>start(N) -> 
А>    Results = for(1, N, fun(X) -> X end).

А>for(N, N, F) ->
А>    [F(N)];
А>for(B, E, F) ->
А>    [F(B)|for(B+1, E, F)].
А>