link compose
procedure main(arglist)

    fun := [sin,cos,cube]
    inv := [asin,acos,cuberoot]
    x := 0.5
    every i := 1 to *inv do
       write("f(",x,") := ", compose(inv[i],fun[i])(x))
end

procedure cube(x)
return x*x*x
end

procedure cuberoot(x)
return x ^ (1./3)
end