anchor.diff:      %%==========================================================
       
       bs_roundtrip('BsPri', 45, [1,0,1,1,0,1]),
  -    
       bs_roundtrip('BsPri', 211, [1,1,0,0,1,0,1,1]),
       
  -    case asn1_wrapper:erule(Rules) of
  +    case Rules of
   	ber ->
   	    bs_decode('BsPri', <<223,61,4,5,75,226,96>>,
   		      [0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]),
  
positive.code:     %% Bs2 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) } (SIZE (7))
      %%==========================================================
      
      ?line {ok,Bytes21} = asn1_wrapper:encode('PrimStrings','Bs2',[mo,tu,fr]),
      ?line {ok,[mo,tu,fr]} = asn1_wrapper:decode('PrimStrings','Bs2',lists:flatten(Bytes21)),
      
      ?line {ok,Bytes22} = asn1_wrapper:encode('PrimStrings','Bs2',[0,1,1,0,0,1,0]),
      ?line {ok,[mo,tu,fr]} = asn1_wrapper:decode('PrimStrings','Bs2',lists:flatten(Bytes22)),
      ok,
  %% skip this because it is wrong
  %     ?line case asn1_wrapper:erule(Rules) of
  % 	      ber -> 
  % 		  ?line {ok,[mo,tu,fr,su,mo,th]} = 
  % 		      asn1_wrapper:decode('PrimStrings','Bs2',[35,8,3,2,0,101,3,2,2,200]),
  		  
  % 		  ?line {ok,[mo,tu,fr,su,mo,th]} = 
  % 		      asn1_wrapper:decode('PrimStrings','Bs2',[35,128,3,2,1,100,3,2,2,200,0,0]),
  % 		  ok;
  	      
  % 	      per ->
  % 		  ok
  % 	  end,
      
      
      
      %%==========================================================
      %% Bs3 ::= BIT STRING {su(0), mo(1), tu(2), we(3), th(4), fr(5), sa(6) } (SIZE (1..7))
      %%==========================================================
  
negative.code: 		      [0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]),
  	    bs_decode('BsPri', <<255,61,128,3,2,0,75,3,3,5,226,96,0,0>>,
  		      [0,1,0,0,1,0,1,1,1,1,1,0,0,0,1,0,0,1,1]);
  	_ ->
  	    ok
      end,
      
  