(DEFUN PP_DAYSTAMP ()
(ZZ_PRE)
(PRINC)
(ZZ_POST)
)