-module(stack).       %% stack.erl
-compile(export_all).

%% @type stack() = empty | {any(),stack()}

empty() -> empty.

is_empty(empty) -> true;
is_empty({_,_}) -> false.

insert(X,empty)      -> {X,empty};
insert(X,{_V,_S}=VS) -> {X,VS}.

return(empty) -> error;
return({V,S}) -> {V,S}.

st(3) -> insert(1,(insert(2,insert(3,empty())))).

%% stack:st(3).