anchor.diff:  
   /// Maps the RegistryBaseKey to a RegistryKey for a 64bit System
   /// [omit]
  -let get64BitKey name = 
  +let get64BitKey name =
       match name with
       | HKEYLocalMachine -> RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
       | HKEYClassesRoot -> RegistryKey.OpenBaseKey(RegistryHive.ClassesRoot, RegistryView.Registry64)
  
positive.code: let createRegistrySubKey baseKey subKey = (getKey baseKey).CreateSubKey subKey |> ignore
  
  /// Sets a registry value
  let setRegistryValue<'T> baseKey subKey keyName (value : 'T) = 
      use key = getRegistryKey baseKey subKey true
      key.SetValue(keyName, value)
  
  /// Deletes the registry value from its key
  let deleteRegistryValue baseKey subKey keyName = 
      use key = getRegistryKey baseKey subKey true
      key.DeleteValue keyName
  
  
negative.code: let valueExistsForKey = fun baseKey sub_key value ->
      let key = getRegistryKey baseKey sub_key false
      key.GetValueNames()
      |> Seq.exists (fun v -> v = value)
  
  