begin
  routine do(integerfn fn(integer p,q,r))
    integer i
    i = fn(1,2,3)
  end

  integerfn average(integer a,b,c)
    result = (a+b+c)//3
  end

  do(average)
endofprogram