anchor.diff:      <<>>;
   inner_row_hungarian_reduction(Column, Unit, Bin) ->
       Size = Unit * Column,
  -    <<BinRow:Size, Tail/bits>> = Bin,
  -    <<(inner_row_hungarian_reduction(Unit, <<BinRow:Size>>))/bits, 
  +    <<BinRow:Size/bits, Tail/bits>> = Bin,
  +    <<(inner_row_hungarian_reduction(Unit, BinRow))/bits, 
         (inner_row_hungarian_reduction(Column, Unit, Tail))/bits>>.
   
   %% @doc column reduction for hungarian
  
positive.code:     Size = Unit * Column,
      <<<<(inner_zipwith(fun (ValueA, ValueB) -> 
                                 ValueA - ValueB
                         end, Unit, <<BinRow:Size>>, BinMin))/bits>> 
        || <<BinRow:Size>> <= Bin>>.
  
  %% -spec inner_min_max_of_lists(list()) ->
  %%                                     {pos_integer(), pos_integer()}.
  
negative.code:               IIndex, Columns, Unit, <<PreData/bits, Head:Unit>>, Data, 
                inner_plus_columns(Index, Columns), Tail);
          false ->
              <<Value:Unit/bits, Left/bits>> = Data,
              inner_insert_column(
                IIndex, Columns, Unit, <<PreData/bits, Value/bits>>, Left,
                inner_plus_columns(Index, Columns), List)
      end.
  
  