type TDer = class(shortstring)
end;

begin
end.