bcc ((ERROR str):xs) = do
    i <- get
    tell $ indent (level i) ++ "fprintf(stderr, "
        ++ show str ++ "); fprintf(stderr, \"\\n\"); exit(-1);\n"
    bcc xs
-- bcc i c = error (show c) -- indent i ++ "// not done yet\n"
bcc ((ERROR str):xs) = do
    i <- get
    tell $ indent (level i) ++ "fprintf(stderr, "
        ++ show str ++ "); fprintf(stderr, \"\\n\"); exit(-1);\n"
    bcc xs
-- bcc i c = error (show c) -- indent i ++ "// not done yet\n"
bcc ((ERROR str):xs) = do
    i <- get
    tell $ indent (level i) ++ "fprintf(stderr, "
        ++ show str ++ "); fprintf(stderr, \"\\n\"); exit(-1);\n"
    bcc xs
-- bcc i c = error (show c) -- indent i ++ "// not done yet\n"