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