bcc ((NULL r):xs) = do
    i <- get
    tell $ indent (level i) ++ creg r ++ " = NULL;\n" -- clear, so it'll be GCed
    bcc xs
bcc ((NULL r):xs) = do
    i <- get
    tell $ indent (level i) ++ creg r ++ " = NULL;\n" -- clear, so it'll be GCed
    bcc xs
bcc ((NULL r):xs) = do
    i <- get
    tell $ indent (level i) ++ creg r ++ " = NULL;\n" -- clear, so it'll be GCed
    bcc xs