bcc ((RESERVE n):xs) = do
    i <- get
    tell $ indent (level i) ++ "RESERVE(" ++ show n ++ ");\n"
    bcc xs
bcc ((RESERVE n):xs) = do
    i <- get
    tell $ indent (level i) ++ "RESERVE(" ++ show n ++ ");\n"
    bcc xs
bcc ((RESERVE n):xs) = do
    i <- get
    tell $ indent (level i) ++ "RESERVE(" ++ show n ++ ");\n"
    bcc xs