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