RosettaCodeData/Task/First-class-functions/Min/first-class-functions.min

('sin 'cos (3 pow)) =A
('asin 'acos (1 3 / pow)) =B

(A bool) (
  0.5 A first B first concat -> puts!
  A rest #A
  B rest #B
) while