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