<*+ CSTDLIB *> <*- NOHEADER *> <*+ M2EXTENSIONS *> DEFINITION MODULE ["C"] printc; PROCEDURE WrCharc(c:CHAR); END printc.