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