begin
  routinespec do(real before, integerfn fn(integer p,q), byteinteger after)

  integerfn sum(integer a,b)
    result = a+b
  end

  do(3.14, sum, 240)

  routine do(real before, integerfn fn(integer p,q), byteinteger after)
    integer i
    i = fn(1,2)
    write(i, -1); newline
  end

endofprogram