mixster

type meow = procedure();

procedure Woof();
begin
  Writeln('Eek!');
end;

procedure Ohno(proc: meow);
begin
  Writeln('=O');
  proc();
  Writeln('=D');
end;

begin
  Ohno(@Woof);
end.