{ $OPT= -So }
unit tbs0147;
interface

function b:boolean;

implementation

function b;
begin
end;

end.