anchor.diff:                  |> 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,
  
positive.code:             |> addMethod myMethod
              |> addMethod myMethodAsync
              |> ignore       
  
              | _ -> failwith errorMessage                    
  
  let generateChoice (aType:ProvidedTypeDefinition) (fsmInstance: ScribbleProtocole.Root []) currentState indexList indexOfState  = 
      let assem = typeof<TypeChoices.Choice1>.Assembly
  
negative.code:         Expr.Sequential(exprAction,exprState) 
  
  
  let invokeCodeOnRequest = 
      let hello = "hello"
      <@@ printing "In request ..." hello  @@>
  
  let invokeCodeOnAccept = 
      let hello = "hello"
      <@@ printing "In accept ..." hello  @@>
  
  let invokeCodeOnReceive (args:Expr list) (payload: ScribbleProtocole.Payload [])  (payloadDelim: string List) 
                         (labelDelim : string List)  (endDelim: string List)  (nameLabel:string) (message: byte[]) 
                          exprState role fullName = 
  