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