RosettaCodeData/Task/First-class-functions/Bracmat/first-class-functions.bracmat

( (sqrt=.!arg^1/2)
& (log=.e\L!arg)
& (A=x2d (=.!arg^2) log (=.!arg*pi))
& ( B
  = d2x sqrt (=.e^!arg) (=.!arg*pi^-1)
  )
& ( compose
  =   f g
    .   !arg:(?f.?g)
      & '(.($f)$(($g)$!arg))
  )
&   whl
  ' ( !A:%?F ?A
    & !B:%?G ?B
    & out$((compose$(!F.!G))$3210)
    )
)