False
MODULE MAIN(MAIN) WHERE

IMPORT SYSTEM.IO
IMPORT DATA.CHAR

MAIN = DO
  IST <- HISTERMINALDEVICE STDIN
  FLG <- IF NOT IST THEN RETURN FALSE ELSE HGETECHO STDIN
  PRINT FLG
  IF NOT IST THEN HSETECHO STDIN FALSE ELSE RETURN ()
  HSETBUFFERING STDIN NOBUFFERING
  INTERACT (MAP TOUPPER)
  
