anchor.diff:          element.Text    
   
   let read (cssSelector : string) =    
  -    try
  -        let elem = element cssSelector
  -        textOf elem
  -    with
  -        | ex -> failwith ex.Message
  -
  +    let elem = element cssSelector
  +    textOf elem
           
   let clear (cssSelector : string) = 
       let elem = element cssSelector
  
positive.code:         | :? WebDriverTimeoutException ->   puts "Element not found in the allotted time. If you want to increase the time, put elementTimeout <- 10.0 anywhere before a test to increase the timeout"
                                              suggestOtherSelectors cssSelector
                                              failwith (String.Format("cant find element {0}", cssSelector))
          | ex -> failwith ex.Message
  
  let private find (cssSelector : string) (timeout : float) (searchContext : ISearchContext) =
      (findByFunction cssSelector timeout findElements searchContext).Head
  
negative.code:         wait compareTimeout (fun _ -> ( let elems = elements cssSelector
                                          elems.Length = count))
      with
          | :? WebDriverTimeoutException -> failwith (String.Format("count failed. expected: {0} got: {1} ", count, (elements cssSelector).Length));
  
  let private regexMatch pattern input = System.Text.RegularExpressions.Regex.Match(input, pattern).Success
  
  