anchor.diff:      //
       let get (index:Dlr.Expr) expr = 
         tempBlockT<CO> expr (fun tmp -> 
  -        [Dlr.call tmp "Get" [index]]
  +        [tmp.CallMember("Get", [index])]
         )
   
       //
  
positive.code:       match assign with
        | Ast.Assign(Ast.String name, expr) -> 
          let value = ctx.Compile expr
          let name = Dlr.const' name
          tmp |> Property.put name value
  
        | _ -> failwith "Que?"
  
  
negative.code:         tmp .= ctx.Env.CallMember("NewArray", [!!!length])
  
          (List.mapi (fun i value ->
            let value = ctx.Compile value
            tmp |> Index.put !!!(uint32 i) value
          ) indexes) |> blockSimple
  
          tmp :> Dlr.Expr
  