#Mathematica 88 This rasterizes the expression, obtains the binary image data, converts each 1 to "#", each 0 to "" (empty space) and displays output in a 12 by 136 character grid. GraphicsGrid[ImageData@ImageResize[Binarize@Rasterize@Style[t, 130], 130] /. {1 -> "", 0 -> "#"}] ![hello][1] [1]: https://i.sstatic.net/7tkoM.png