double local fn FunctionF( x as double )
end fn = x + 1.5

double local fn FunctionG( x as double )
end fn = x * x

double local fn Compose( f as ptr, g as ptr )
  double def fn ff(x1 as double) using f
  double def fn fg(x2 as double) using g
end fn = fn ff(fn fg(2.5))

print fn Compose( @fn FunctionF, @fn FunctionG )

HandleEvents