main = do
    args <- getArgs
    case args of
        [x] -> readDSL x >>= process
main = do
    args <- getArgs
    case args of
        [x] -> readDSL x >>= process
main = do
    args <- getArgs
    case args of
        [x] -> readDSL x >>= process