+processbdf((new IO::File '<&STDIN'),
+ (new IO::File '>&STDOUT'));
+
+
+# 70 zcat /usr/share/fonts/X11/misc/6x13.pcf.gz |pcf2bdf >in.bdf
+# 71 ./utility <in.bdf >out.bdf
+# 83 bdftopcf out.bdf >out.pcf
+# 84 gzip out.pcf
+# 85 cp out.pcf.gz /usr/share/fonts/X11/misc/
+# really mkfontdir /usr/share/fonts/X11/misc/
+# xset fp rehash
+# xfontsel