mks-m

% list of {type, flag} tuples
pack(List) -> pack(List, <<>>).

pack([], Ready) -> Ready;
pack([{Type, Flag}|Rest], Ready) ->
    Bit   = ?MODULE:Type(Flag) - 1,
    Size  = size(Ready) * 8,
    io:format("switch bit ~p in ~p bits~n", [Bit, Size]),
    switch(Bit, Size, Rest, Ready).