Plan 9 from Bell Labs’s /usr/web/sources/plan9/sys/lib/troff/font/devutf/charlib/bx
/build_bx { pop size 2 div /side exch def currentpoint newpath moveto 0 side rlineto side 0 rlineto 0 side neg rlineto closepath fill } def