begin
  routine calgol(longreal c, integerfn f(integer p), integername n)
    n = f(n)
  end
  integerfn simple(integer param)
    printstring("Called"); newline
    result = param
  end
  longreal a = 1.23
  integer num
  num = 3
  calgol(a, simple, num)
endofprogram