USE: math.functions ! http://rosettacode.org/wiki/First-class_functions#Factor 1.5 { [ sin ] [ cos ] [ 3 ^ ] } { [ asin ] [ acos ] [ 1/3 ^ ] } [ append ] 2map [ call ] with map [ 1.5 equal? ] map t [ and ] reduce