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:                 (slice, [])
                  [0 .. count - 1] |>
              snd
          | Cycle count ->
              List.fold
                  (fun artifacts i ->
  
negative.code: 
      and private evalAspect aspect slice effector =
          match aspect with
          | Aspect.Expand (definitionName, _) ->
              match Map.tryFind definitionName effector.EffectEnv with
              | Some definition ->
                  match definition.DefinitionBody with
  