anchor.diff:  procedure TTestShake_128.TestIncrementalHash;
   begin
     FExpectedString := FExpectedHashOfDefaultData;
  -  FHash := THashFactory.TCrypto.CreateShake_128(512);
  +  FHash := THashFactory.TXOF.CreateShake_128(512);
   
     FHash.Initialize();
     FHash.TransformString(System.Copy(FDefaultData, 1, 3), TEncoding.UTF8);
  
positive.code: var
    VeryLongShake_128: IHash;
  begin
    VeryLongShake_128 := THashFactory.TCrypto.CreateShake_128(8000);
    FActualString := VeryLongShake_128.ComputeString(FEmptyData, TEncoding.UTF8)
      .ToString();
    FExpectedString := FVeryLongShakeOfEmptyString;
  
negative.code: procedure TTestShake_256.SetUp;
  begin
    inherited;
    FShake_256 := THashFactory.TXOF.CreateShake_256(512);
  end;
  
  procedure TTestShake_256.TearDown;
  