{ %fail }

{$IFDEF FPC}
 {$MODE TP}
{$ENDIF FPC}
unit tw6957;

interface

function tw6957: boolean;

implementation

function tw6957: boolean;
begin
 tw6957 := true;
end;

end.