import System.Environment (getArgs)

data Token = OpenParen | CloseParen deriving (Enum)

type Syntax = (Char, Token)



isToken :: Char -> Token
isToken x = 

main = do
     args <- getArgs
     let filename = 
