fpc/tests/tppu/changeleaf1/changeleaf1_ant.pas

unit changeleaf1_ant;

{$mode objfpc}

interface

uses changeleaf1_bird;

function Crawl(w : word): word;

implementation

function Crawl(w : word): word;
begin
  Result := Fly(w*2);
end;

end.