The “font” came from http://en.wikipedia.org/wiki/Inuit_numerals:

fontline=

ImageDimensions[fontline]

font=Table[
pitch=26.82;
Show[ImageCrop[ImageTake[fontline, {1, 29}, {k*pitch+7, k*pitch+27}]]],
{k, 0, 19}
] // RotateRight

GraphicsRow[
font[[1+First[RealDigits[π, 20, 40]]]],
0]

digits=IntegerDigits[(8!*3^8*12!*2^12)/12, 20]

GraphicsRow[font[[1+digits]],0]