anchor.diff:                  let eir =
                       Seq.foldWhileRight (fun (state, world) elem ->
                           match evalApply [fn; state; elem] fnOriginOpt world with
  -                        | (Option (Some value), world) -> (Right (value, world))
  +                        | (Option (Some state), world) -> (Right (state, world))
                           | (Option None, world) -> Left (state, world)
                           | _ -> Left (Violation ([!!"InvalidResult"; !!"Container"; !!(String.capitalize fnName)], "Function " + fnName + "'s folder must return an option.", fnOriginOpt), world))
                           (Right (state, world))
  
positive.code:                 match
                      Seq.foldWhileRight (fun (state, states, world) elem ->
                          match evalApply [fn; state; elem] fnOriginOpt world with
                          | (Option (Some value), world) -> (Right (value, value :: states, world))
                          | (Option None, world) -> Left (List states, world)
                          | _ -> Left (Violation ([!!"InvalidResult"; !!"Container"; !!(String.capitalize fnName)], "Function " + fnName + "'s scanner must return an option.", fnOriginOpt), world))
                          (Right (state, [], world))
  
negative.code:                     Seq.foldWhileRight (fun (state, world) (key, value) ->
                          let elem = Tuple [|key; value|]
                          match evalApply [fn; state; elem] fnOriginOpt world with
                          | (Option (Some state), world) -> (Right (state, world))
                          | (Option None, world) -> Left (state, world)
                          | _ -> Left (Violation ([!!"InvalidResult"; !!"Container"; !!(String.capitalize fnName)], "Function " + fnName + "'s folder must return an option.", fnOriginOpt), world))
                          (Right (state, world))
  