-module(cellTester).
-export([main/0]).

main() -> C = spawn(cell,cell,[0]),
          C!{set,2},
          C!{set,7},
          C!{get,self()},
          receive
             Value ->
                io:format("~w~n",[Value])
          end.

%% Use, e.g., as follows:
%%
%% > c(cell).
%% > c(cellTester).
%% > cellTester:main().
%% 7