anchor.diff:  
       let rec evalResource resource effector : AssetTag =
           match resource with
  -        | Resource.Expand (definitionName, _) -> // NOTE: currently no use for arguments
  +        | Resource.Expand (definitionName, _) ->
               match Map.tryFind definitionName effector.EffectEnv with
               | Some definition ->
                   match definition.DefinitionBody with
  
positive.code:         evalContent content slice effector
  
      and private evalRepeat shift repetition incrementAspects content (slice : Slice) effector =
          let slice = { slice with Depth = slice.Depth + shift }
          match repetition with
          | Iterate count ->
              List.fold
                  (fun (slice, artifacts) _ ->
  
negative.code:                                         evalAspects emitterAspects slice { effector with EffectTime = effector.EffectTime - timePassed })
                                      effector.History
                              | _ -> effector.History
                          { effector with History = history; EffectTime = timePassed }
                      let artifacts' =
                          List.fold
                              (fun artifacts' _ ->
                                  let slice = evalAspects aspects slice effector
                                  let artifacts'' = if slice.Enabled then evalContent content slice effector else []
                                  artifacts'' @ artifacts')
                              []
                              [0 .. emitCount - 1]
  