By the Bluebook implementation of Smalltalk-80 - View it on GitHub