out(A) -> Dir_img = filename:dirname(A#arg.fullpath), {N, Files} = filelib:fold_files( Dir_img, ".*?\\.(jpg|jpeg|gif|png|bmp)", true, fun(Filename, {N, Acc}) -> {N+1, [ Filename | Acc ]} end, {0, []} ), {A1,A2,A3} = now(), random:seed(A1, A2, A3), M = random:uniform(N), File = lists:nth(M, Files), File_relative = lists:nthtail(length(Dir_img)+1, File), {ehtml, {img, [{src, File_relative}]}}.