{ %norun }

unit tw10540;
{$mode objfpc}{$H+}

interface

function s(l: PChar; r: PPChar; rn: PInteger; var np: Integer; ll: Integer):Integer;

function x(M: PChar; N1, N2, L: PInteger; len: Integer): Integer;

implementation

uses Math;

function s(l: PChar; r: PPChar; rn: PInteger; var np: Integer; ll: Integer):Integer;
begin
end;

function x(M: PChar; N1, N2, L: PInteger; len: Integer): Integer;
begin
end;

end.