(defvar funlist [list sin
cos
(op expt @1 3)])
(defvar invlist [list asin
acos
(op expt @1 (/ 1 3))])
(each ((f funlist) (i invlist))
(prinl [(chain f i) 0.5]))