MODULE MAIN WHERE

IMPORT DATA.CHAR

MAIN :: IO ()
MAIN = INTERACT (MAP TOUPPER)