% `ujt+.m4'
.PS
cct_init
dwn = 1.0

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

[demo_ujt(up_ dimen_,,,E)
`"{\tt ujt(up\_ dimen\_,,,E)}"' at last [].s+(0,-0.2) below ]

[demo_ujt(,,P,)
`"{\tt ujt(,,P,)}"' at last [].s+(0,-0.2) below] \
with .sw at last [].se+(.8,0)

[demo_ujt(,R,,)
`"{\tt ujt(,R,,)}"' at last [].s+(0,-0.2) below] \
with .sw at last [].se+(.8,0)

[demo_ujt(,R,P,)
`"{\tt ujt(,R,P,)}"' at last [].s+(0,-0.2) below] \
with .sw at last [].se+(.8,0)

.PE