PS
# `ujt.m4'
cct_init
dwn = 1.0
dsep = 0.15

define(`demo_ujt',`Q: ujt(`$1',`$2',`$3',`$4')
 "\sl B1" ifelse(`$5',,below,ljust) at last [].B1
 "{\sl E}sp_" at 1.5 between last [].Bulk.c and last [].E
 "\sl B2" ifelse(`$5',,above,ljust) at last [].B2
')

[demo_ujt(up_ dimen_,,,E,A)
`"{\tt ujt(up\_ dimen\_,{,},E)}"' wid 1.45 ht 0.1 at Q.s+(0,-0.15) ]

[demo_ujt(,,P,)
`"{\tt ujt(,{,}P,)}"' at Q.s+(0.1,-dsep) below ] \
with .Q.w at last [].Q.e+(0.85,0)

[demo_ujt(,R,,)
`"{\tt ujt(,R,{,})}"' at Q.s+(0,-dsep) below] \
with .Q.w at last [].Q.e+(0.8,0)

[demo_ujt(,R,P,)
`"{\tt ujt(,R,P,)}"' at Q.s+(0,-dsep) below] \
with .Q.w at last [].Q.e+(0.8,0)

PE