Prgm
  Local funs,invs,composed,x,i

  Define rc_cube(x) = x^3     © Cannot be local variables
  Define rc_curt(x) = x^(1/3)

  Define funs = {"sin","cos","rc_cube"}
  Define invs = {"sin","cos","rc_curt"}

  Define x = 0.5
  Disp "x = " & string(x)
  For i,1,3
    Disp "f=" & invs[i] & " g=" & funs[i] & " f(g(x))=" & string(#(invs[i])(#(funs[i])(x)))
  EndFor

  DelVar rc_cube,rc_curt  © Clean up our globals
EndPrgm