declare proc {Add Acc S}
       case S
       of X|S2 then {Browse Acc} {Add Acc+X S2}
       end
    end

declare fun {NewServer Init Fun}
    Sin in
       thread {Fun Init Sin} end
    {NewPort Sin}
    end



declare Server = {NewServer 0 Add}
{Send Server 3}
{Send Server 8}
{Send Server 4}