anchor.diff:  var
     VeryLongShake_256: IHash;
   begin
  -  VeryLongShake_256 := THashFactory.TCrypto.CreateShake_256(8000);
  +  VeryLongShake_256 := THashFactory.TXOF.CreateShake_256(8000);
     FActualString := VeryLongShake_256.ComputeString(FEmptyData, TEncoding.UTF8)
       .ToString();
     FExpectedString := FVeryLongShakeOfEmptyString;
  
positive.code: procedure TTestShake_128.SetUp;
  begin
    inherited;
    FShake_128 := THashFactory.TCrypto.CreateShake_128(512);
  end;
  
  procedure TTestShake_128.TearDown;
  
negative.code: procedure TTestShake_256.SetUp;
  begin
    inherited;
    FShake_256 := THashFactory.TXOF.CreateShake_256(512);
  end;
  
  procedure TTestShake_256.TearDown;
  