anchor.diff:      /// http page not found response
       let http404 text = Http404(text) :> Response
   
  +    /// http redirect
  +    let http303 location = Http303(location) :> Response
  +
       /// helper for xml responses
       let xmlResp text = XMLResponse(text) :> Response
   
  
positive.code:         do
              this.Text <- html
      end    
      type MyLock() = class 
          let x = 9
          do 
  
negative.code:     let explanation code =
          match code with
              | 200 -> "OK"
              | 302 -> "Found"
              | 303 -> "See Other"
              | 304 -> "Not Modified"
              | 307 -> "Temporary Redirect"
              | 404 -> "Not found"
              | 401 -> "Authorization required"
              | _ -> "unknown"
  