anchor.diff:      | [] -> raise (CanopyOptionNotFoundException(sprintf "element %s does not contain value %s" cssSelector text))
       | head::tail -> head.Click()
   
  -let ( << ) cssSelector (text : string) = 
  +let ( << ) cssSelector text = 
       wait (elementTimeout + 1.0) (fun _ ->
           
           let writeToElement (e : IWebElement) =
  
positive.code:               | _ -> 1000
      System.Threading.Thread.Sleep(ms)
  
  let puts (text : string) = 
      reporter.write text
      let escapedText = text.Replace("'", @"\'")
      let info = "
  
negative.code:                 cssSelector |> elements |> List.iter (fun e -> bprintf sb "%s\r\n" (textOf e))
                  raise (CanopyValueNotInListException(sprintf "cant find %s in list %s\r\ngot: %s" value cssSelector (sb.ToString())))
  
  let ( *!= ) cssSelector value =
      try
          wait compareTimeout (fun _ -> ( cssSelector |> elements |> Seq.exists(fun element -> (textOf element) = value) |> not))
      with
  