bcc ((UPDATE l r):xs) = do
    i <- get
    tell $ indent (level i) ++ creg l ++ " = " ++ creg r ++ ";\n"
    bcc xs
bcc ((UPDATE l r):xs) = do
    i <- get
    tell $ indent (level i) ++ creg l ++ " = " ++ creg r ++ ";\n"
    bcc xs
bcc ((UPDATE l r):xs) = do
    i <- get
    tell $ indent (level i) ++ creg l ++ " = " ++ creg r ++ ";\n"
    bcc xs