This is a great talk. You’ll see the ugly program in the first minute, and then you’ll hear about how it works and what it does. It fits on a single punched card.
For another, unrelated, marvellous talk also by Steele, see “Growing a Language” - see if you can figure it out. No spoilers please!