bcc ((OP l fn args):xs) = do
    i <- get
    tell $ indent (level i) ++ doOp (creg l ++ " = ") fn args ++ ";\n"
    bcc xs
bcc ((OP l fn args):xs) = do
    i <- get
    tell $ indent (level i) ++ doOp (creg l ++ " = ") fn args ++ ";\n"
    bcc xs
bcc ((OP l fn args):xs) = do
    i <- get
    tell $ indent (level i) ++ doOp (creg l ++ " = ") fn args ++ ";\n"
    bcc xs