anchor.diff:              |> addMethod myMethod
               |> addMethod myMethodAsync
               |> ignore       
  -
  -            | _ -> failwith errorMessage                    
  +        |"request" ->
  +            let myMethod = 
  +                ProvidedMethod(methodName+nameLabel, listParam, nextType,
  +                    IsStaticMethod = false,
  +                    InvokeCode = 
  +                        fun args-> 
  +                            invokeCodeOnRequest) 
  +            aType 
  +                |> addMethod myMethod
  +                |> ignore
  +          
  +        |"accept" ->  
  +            let myMethod = 
  +                ProvidedMethod(methodName+nameLabel, listParam, nextType,
  +                    IsStaticMethod = false,
  +                    InvokeCode = 
  +                        fun args-> 
  +                            invokeCodeOnAccept) 
  +            aType 
  +                |> addMethod myMethod
  +                |> ignore
  +
  +        | _ -> failwith errorMessage                    
   
   let generateChoice (aType:ProvidedTypeDefinition) (fsmInstance: ScribbleProtocole.Root []) currentState indexList indexOfState  = 
       let assem = typeof<TypeChoices.Choice1>.Assembly
  
positive.code:         Expr.Sequential(exprAction,exprState) 
  
  
  let invokeCodeOnReceive (args:Expr list) (payload: ScribbleProtocole.Payload [])  (payloadDelim: string List) 
                         (labelDelim : string List)  (endDelim: string List)  (nameLabel:string) (message: byte[]) 
                          exprState role fullName = 
  
negative.code:                 |> addMethod myMethod
                  |> ignore
          |"receive" ->  
              let labelDelim, payloadDelim, endDelim = getDelims fullName
              let decode = new System.Text.UTF8Encoding()
              let message = Array.append (decode.GetBytes(fullName)) (decode.GetBytes(labelDelim.Head))
  
              let myMethod = 
                  ProvidedMethod(methodName+nameLabel,listParam,nextType,
                      IsStaticMethod = false,
  