anchor.diff:                "~n      Base Factor:     ~w"
                 "~n      Label Factor:    ~w"
                 "~n      Mem Factor:      ~w"
  +              "~n      Virtual Factor:  ~w"
                 "~n      TS Scale Factor: ~w"
  -             "~n", [Factor, AddLabelFactor, AddMemFactor, TSScaleFactor]),
  -    {Factor + AddLabelFactor + AddMemFactor + TSScaleFactor, [{label, Label}]}.
  +              "~n", [Factor, AddLabelFactor, AddMemFactor, VirtFactor,
  +                     TSScaleFactor]),
  +    {Factor + AddLabelFactor + AddMemFactor + VirtFactor + TSScaleFactor,
  +     [{label, Label}]}.
  +
  +linux_virt_factor() ->
  +    linux_virt_factor(linux_product_name()).
  +
  +linux_virt_factor("VMware" ++ _) ->
  +    2;
  +linux_virt_factor("VirtualBox" ++ _) ->
  +    4;
  +linux_virt_factor(_) ->
  +    0.
  +
   
   linux_cpuinfo_clock() ->
       %% This is written as: "3783.000000MHz"
  
positive.code:                           "~n", [Version, L]),
                  {other, simplify_label(L)}
          end,
      Factor =
          case (catch linux_which_cpuinfo(Distro)) of
              {ok, {CPU, BogoMIPS}} ->
  
negative.code:             _ ->
                  2
          end,
      io:format("Factor calc:"
                "~n      CPU Factor:     ~w"
                "~n      Mem Factor:     ~w"
                "~n      Label Factor:   ~w"
                "~n      Virtual Factor: ~w"
                "~n~n",
                [CPUFactor, MemFactor, AddLabelFactor, VirtFactor]),
      {CPUFactor + MemFactor + AddLabelFactor + VirtFactor, SysInfo}.
  
  win_virt_factor("VMware" ++ _) ->
      2;
  win_virt_factor(_) ->
      0.
  
  
  win_sys_info_lookup(Key, SysInfo) ->
      win_sys_info_lookup(Key, SysInfo, "-").
  