begin
  routine do(real before, integerfn fn(integer p,q), byteinteger after)
    integer i
    i = fn(1,2)
  end

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

  do(3.14, average, 240)

endofprogram