-module(lock).
-compile(export_all).

unlocked() ->
    receive
        {From, dolock} ->
            From ! go,
            locked();
end.

locked() ->
    receive
        {From, unlock} ->
            unlocked();
end.