IN: scratchpad
USE: lists
USE: prettyprint
USE: stdio
USE: test
USE: vocabularies

"Checking prettyprinter." print

! This was broken due to uninterned words having a null vocabulary.
[ #:uninterned ] prettyprint

! Now do a little benchmark
[ vocabs [ words [ see ] each ] each ] time