MODULE nulcharvar ;

VAR
   ch: CHAR ;
BEGIN
   ch := ''
END nulcharvar.