anchor.diff:                       | p :: _ -> p.MainWindowHandle
   
   
  -    let internal SelectHandle getProcHandle getLockHandle (input: Input) log = 
  +    let internal SelectHandle getProcHandle findLockHandle (input: Input) log = 
           let procHandle = getProcHandle input
  -        let lockHandle = getLockHandle input
  +        let lockHandle = findLockHandle input
           
           log (String.Format("Lock Handle: {0}, Proc Handle: {1}", lockHandle, procHandle))
   
  
positive.code:             Prc = file |> Process.Start
          }
  
      let internal GetProcessHandle (input : Input) =
          try
              input.Prc.MainWindowHandle
          with
  
negative.code:         ()
  
      let OpenD (file: string) = 
          OpenInternal Start WaitSeconds FindLockHandle FindProcessHandle SelectHandle (fun f ->  logToFile f) file
  