{ %NORUN }

program tw39677;

{$mode Delphi}

uses uw39677b, uw39677a;

var
  S: Rawbytestring;
  I: Integer;
begin
  I := Test(S);
end.