gistfile1.erl

#!/usr/bin/env escript

make_big_term() ->
    Reused = lists:seq(1, 10000),
    [ Reused || _ <- lists:seq(1, 1000) ].

main([]) ->
    Term = make_big_term(),
    io:format("PARENT: ~p - ~p~n", [byte_size(term_to_binary(Term)), erlang:process_info(self(), memory)]),
    spawn(fun() ->
                  io:format("CHILD: ~p - ~p~n", [byte_size(term_to_binary(Term)), erlang:process_info(self(), memory)]),
                  erlang:garbage_collect(),
                  io:format("CHILG: ~p - ~p~n", [byte_size(term_to_binary(Term)), erlang:process_info(self(), memory)])
          end),
    erlang:garbage_collect(),
    io:format("PARENG: ~p - ~p~n", [byte_size(term_to_binary(Term)), erlang:process_info(self(), memory)]),
    timer:sleep(3000).