1-module(on_load_a).
2-on_load(on_load/0).
3-export([data/0]).
4
5on_load() ->
6    ?MASTER ! {?MODULE,start},
7    on_load_b:data(),
8
9    %% Call local function.
10    120 = fact(5),
11
12    %% Call remote function.
13    LibDir = code:lib_dir(kernel),
14
15    ?MASTER ! {?MODULE,LibDir},
16    ok.
17
18data() ->
19    [a|on_load_b:data()].
20
21fact(N) ->
22    fact(N, 1).
23
24fact(0, P) -> P;
25fact(1, P) -> P;
26fact(N, P) -> fact(N-1, P*N).
27
28
29