fpc/tests/tppu/changeinner1/src2/changeinner1_ant.pas

unit changeinner1_ant;

{$mode objfpc}

interface

uses changeinner1_bird;

function Crawl(w : word): word;

implementation

function Crawl(w : word): word;
begin
  Result := 7 * Fly(w); // changed
end;

end.