anchor.diff:  
   -define(debug, false).
   
  --export([test/0, perm/0]).
  +-export([test/0, run/1]).
   
   -record(life, {hp :: integer(),
                  mana :: integer()}).
  
positive.code: eval(_Turn, _SpellBacklog, #state{player=#life{hp=HP, mana=Mana}, cmana=CMana})
    when Mana =< 0 orelse HP =< 0 ->
      {lose, CMana};
  eval(player, SpellBacklog, St0) ->
      St = apply_effects(St0),
      St1 = case SpellBacklog of
                [] ->
  
negative.code: -record(state, {boss :: #life{},
                  player :: #life{},
                  cmana :: integer(),
                  effects :: [#effect{}],
                  hard_mode :: boolean()
                 }).
  
  test() ->
      Player = #life{hp=50, mana=500},
  