open number //sin,cos,asin,acos
open list //zipWith

cube x = x ** 3
croot x = x ** (1/3)

funclist = [sin, cos, cube]
funclisti = [asin, acos, croot]

zipWith (\f inversef -> (inversef << f) 0.5) funclist funclisti