\begin{tikzpicture}[scale=2.54] % dpic version 2020.03.01 option -g for TikZ and PGF 1.01 \ifx\dpiclw\undefined\newdimen\dpiclw\fi \global\def\dpicdraw{\draw[line width=\dpiclw]} \global\def\dpicstop{;} \dpiclw=0.8bp \dpiclw=0.8bp \dpicdraw (0.9,-0.15) --(0.9,0)\dpicstop \dpicdraw (0.9,0) --(0.725,0)\dpicstop \dpicdraw (0.725,-0.025) --(0.725,0.225)\dpicstop \dpicdraw (0.725,0.2) --(0.9,0.2) --(0.9,0.35)\dpicstop \dpicdraw (0.55,0.2) --(0.725,0.1)\dpicstop \filldraw[line width=0bp](0.61699,0.129727) --(0.703125,0.1125) --(0.644553,0.177963) --cycle\dpicstop \dpicdraw (0.55,0.2) --(0.687872,0.121216)\dpicstop \dpicdraw (0.725,0.1) circle (0.07874in)\dpicstop \draw (0.9,-0.15) node[right=-2bp]{\sl B1}; \draw (0.4625,0.25) node{{\sl E}}; \draw (0.9,0.35) node[right=-2bp]{\sl B2}; \draw (0.725,-0.3) node{{\tt ujt(up\_ dimen\_,{,},E)}}; \dpicdraw (2.125,0) --(1.95,0)\dpicstop \dpicdraw (1.95,-0.025) --(1.95,0.225)\dpicstop \dpicdraw (1.95,0.2) --(2.125,0.2)\dpicstop \dpicdraw (1.775,0.2) --(1.95,0.1)\dpicstop \filldraw[line width=0bp](1.88301,0.170273) --(1.796875,0.1875) --(1.855447,0.122037) --cycle\dpicstop \dpicdraw (1.95,0.1) --(1.812128,0.178784)\dpicstop \draw (2.125,0) node[below=-2bp]{\sl B1}; \draw (1.6875,0.25) node{{\sl E}}; \draw (2.125,0.2) node[above=-2bp]{\sl B2}; \draw (2.05,-0.175) node[below=-2bp]{{\tt ujt(,{,}P,)}}; \dpicdraw (2.925,0) --(3.1,0)\dpicstop \dpicdraw (3.1,-0.025) --(3.1,0.225)\dpicstop \dpicdraw (3.1,0.2) --(2.925,0.2)\dpicstop \dpicdraw (3.275,0.2) --(3.1,0.1)\dpicstop \filldraw[line width=0bp](3.180447,0.177963) --(3.121875,0.1125) --(3.20801,0.129727) --cycle\dpicstop \dpicdraw (3.275,0.2) --(3.137128,0.121216)\dpicstop \draw (2.925,0) node[below=-2bp]{\sl B1}; \draw (3.3625,0.25) node{{\sl E}}; \draw (2.925,0.2) node[above=-2bp]{\sl B2}; \draw (3.1,-0.175) node[below=-2bp]{{\tt ujt(,R,{,})}}; \dpicdraw (4.075,0) --(4.25,0)\dpicstop \dpicdraw (4.25,-0.025) --(4.25,0.225)\dpicstop \dpicdraw (4.25,0.2) --(4.075,0.2)\dpicstop \dpicdraw (4.425,0.2) --(4.25,0.1)\dpicstop \filldraw[line width=0bp](4.344553,0.122037) --(4.403125,0.1875) --(4.31699,0.170273) --cycle\dpicstop \dpicdraw (4.25,0.1) --(4.387872,0.178784)\dpicstop \draw (4.075,0) node[below=-2bp]{\sl B1}; \draw (4.5125,0.25) node{{\sl E}}; \draw (4.075,0.2) node[above=-2bp]{\sl B2}; \draw (4.25,-0.175) node[below=-2bp]{{\tt ujt(,R,P,)}}; \end{tikzpicture} \vspace*{-0.5\baselineskip}