• Pascal

procedure control(f: tprocedure);
begin
  if Assigned(f) then f;
end; 

• Ada

procedure Control (F : access procedure) is
begin
   F.all;
end Control;

• C

void control (void (*f)()) {
        (*f)();
}

• C++

void control(invocable auto&& f)
{
 f();
}

• C#

T control(Func<T> f) {
	return f();
}

• D

void control(void function() f)
{
    f();
}

• D

void control(alias f)()
if (isCallable!f)
{
    f();
}

• Dart

control(Function f) => f();

• Elixir

def control(f) do
	f()
end

• Fortran

module x
  implicit none
contains
  subroutine control(f)
    interface
       subroutine f()
       end subroutine f
    end interface
    call f
  end subroutine control
end module x

• Go

func control(f func()) {
	f()
}

• Groovy

void control(Closure f) {
    f()
}

• Haskell

control f = f

• JS

function control(f){
	f();
}

• Java

static void control(Runnable f) {
    f.run();
}

• Java

control: Callable = lambda f: f()

• Lisp

(defun control (f)
   (funcall f))

• Lua

function control(f)
	f()
end

• PHP

function control($f) {
    $f();
}

• Perl

sub control {
    my $f = shift;
    $f->();
}

• Python

def control(f):
    f()

• Python

def control(f: Callable): f()

• Ruby

def control
    yield
end

• Rust

fn control(f: impl Fn()) {
    f();
}

• Scheme

(define (control f) (f))