anchor.diff:  
   simplify_label("Meamax") ->
       {host, meamax};
  -simplify_label("virtual" ++ _ = Label) ->
  -    case string:split(Label, $/) of
  -        ["virtual", Provider | _] ->
  -            {virtual, string:to_lower(Provider)};
  -        _ ->
  -            {virtual, undefined}
  -    end;
   simplify_label(Label) ->
       case string:find(string:to_lower(Label), "docker") of
           "docker" ++ _ ->
  
positive.code:     end.
  
  label2factor(docker) ->
      4;
  label2factor({virtual, _}) ->
      4;
  label2factor({host, meamax}) ->
      2;
  
negative.code:                               "~n   Distro:                  ~s"
                                "~n   Distro Version:          ~s"
                                "~n   TS Extra Platform Label: ~s"
                                "~n   TS Host Type:            ~s"
                                "~n   Product Name:            ~s"
                                "~n",
                                [Version, DistroStr, VersionNo, Label,
                                 ts_host_type(),
                                 linux_product_name()]),
                      throw({distro,
                             {linux_distro_str_to_distro_id(DistroStr),
                              simplify_label(Label)}})
  