unit debug;

interface

procedure Dump(value : UTF8String);

implementation

procedure Dump(value : UTF8String);
var
  f : Text;
begin
{
  AssignFile(f, '/tmp/DEBUG');
  Append(f);
  Writeln(f, value);
  CloseFile(f);}
end;

end.