1 2 3 4 5
define(`zoinx',dnl `patsubst($1,\(\w+\)\(\W*\),\1 )')dnl zoinx(acosl asinl atanl \ cosl sinl tanl \ coshl sinhl tanhl)