anchor.diff:              Prc = file |> Process.Start
           }
   
  -    let internal GetProcessHandle (input : Input) =
  +    let internal FindProcessHandle (input : Input) =
           try
               input.Prc.MainWindowHandle
           with
  
positive.code:                      | p :: _ -> p.MainWindowHandle
  
  
      let internal SelectHandle getProcHandle getLockHandle (input: Input) log = 
          let procHandle = getProcHandle input
          let lockHandle = getLockHandle input
          
          log (String.Format("Lock Handle: {0}, Proc Handle: {1}", lockHandle, procHandle))
  
  
negative.code:         ()
  
  
      let PopUp findLockHandle findProcessHandle selectHandle (waitTime: float) log (input: Input) =
          let timeToStop = DateTime.UtcNow.AddSeconds(waitTime)
  
          let rec popUpLoop oldHandle currentTime =
              Thread.Sleep 500
  
              let newHandle = selectHandle findLockHandle findProcessHandle input log
              log ("Old: " + oldHandle.ToString() + " New: " + newHandle.ToString())
  
              if (oldHandle <> newHandle) then BringToFront newHandle log
  