anchor.diff:                     false ->
                          Tw = [#say{text = "sorry, this call has been setup "
                                     ++ "incorrectly"}],
  -                      twiml:compile(Tw);
  +                      orddict:from_list(twiml:compile(Tw));
                      true ->
  -                       twiml:compile(TwiML_EXT)
  +                       orddict:from_list(twiml:compile(TwiML_EXT))
                  end,
       io:format("FSM is init is ~p~n", [FSM]),
       {ok, #state{twiml_ext = TwiML_EXT, initial_params = Params,
  
positive.code:     NewCState = twiml:compile(NewTwiML, CS, fsm),
      io:format("State is ~p~nNewCState is ~p~n",
                [State, NewCState]),
      NewFSM = lists:keyreplace(CS, 1, FSM, NewCState),
      io:format("NewFSM is ~p~n", [NewFSM]),
      NewState = State#state{fsm = NewFSM, history = NewHist},
      io:format("NewState is ~p~n", [NewState]),
      NewState.
  
  to_atom(X) when is_atom(X) -> X;
  to_atom(X) when is_list(X) -> list_to_existing_atom(X).
  
  
negative.code: 
  match(State, Action, D, Acc) ->
      #state{currentstate = CS, fsm = FSM} = State,
      case orddict:fetch(CS, FSM) of
          error ->
              exit("invalid state in match");
          {ok, {CS, #response_EXT{response = R} = _Resp, _}} ->
              case D of
                  R -> NewCS = get_next(CS, FSM, fun twiml:incr/1,
                                        fun twiml:bump/1),
                       NewS = State#state{currentstate = NewCS},
                       exec2(next, NewS, Action, []);
                  _  -> NewCS = get_next(CS, FSM, fun twiml:bump/1,
                                         fun twiml:unbump_on/1),
                        NewS = State#state{currentstate = NewCS},
                        match(NewS, Action, D, Acc)
              end
      end.
  
  get_next_default(State, Action, Acc) ->
      #state{currentstate = CS, fsm = FSM} = State,
      case orddict:fetch(CS, FSM) of
          error ->
              exit("invalid state in get_next_default");
          {ok, {CS, #default_EXT{}, _}} ->
              NewCS = get_next(CS, FSM, fun twiml:incr/1,
                               fun twiml:bump/1),
              NewS = State#state{currentstate = NewCS},
              exec2(next, NewS, Action, []);
          {ok, {CS, #goto_EXT{}, Goto}} ->
              {Goto, "<Redirect>/" ++ Goto ++ "</Redirect>"};
          _Other ->
              NewCS = get_next(CS, FSM, fun twiml:bump/1,
  