%!
% SPDX-License-Identifier: CC0-1.0
/bpy { size 8 div mul } bind def
/bpx { bpy 1.25 mul } bind def
<< /HWResolution [ 72 72 ] /PageSize [ size size ] >> setpagedevice
3 255 div 17 255 div 9 255 div setrgbcolor 0 0 size size rectfill
51 255 div 255 255 div 136 255 div setrgbcolor
/Bedstead-Extended findfont 10 bpy scalefont setfont
size 5 bpx sub 2 div 1 bpx sub
size 7 bpy sub 2 div
moveto (B) show
showpage