{ (define LIBNAME "Hangman") (include "head.tinc") }
The teachpack hangman.ss provides all the operations that draw.ss provides and the following two:
hangman.ss
draw.ss
{(idx hangman)} : make-word reveal draw-next-part -> true
make-word,
reveal,
draw-next-part
{(idx hangman-list)} : reveal-for-list draw-next-part -> true
reveal-for-list