RosettaCodeData/Task/First-class-functions/Axiom/first-class-functions-1.axiom

fns := [sin$Float, cos$Float, (x:Float):Float +-> x^3]
inv := [asin$Float, acos$Float, (x:Float):Float +-> x^(1/3)]
[(f*g) 0.5 for f in fns for g in inv]
	`fns := [sin$Float, cos$Float, (x:Float):Float +-> x^3]`
	`inv := [asin$Float, acos$Float, (x:Float):Float +-> x^(1/3)]`
	`[(f*g) 0.5 for f in fns for g in inv]`