bcc ((MKCON l loc tag []):xs) | tag < 256 = do
    i <- get
    tell $ indent (level i) ++ creg l ++ " = NULL_CON(" ++ show tag ++ ");\n"
    bcc xs
bcc ((MKCON l loc tag []):xs) | tag < 256 = do
    i <- get
    tell $ indent (level i) ++ creg l ++ " = NULL_CON(" ++ show tag ++ ");\n"
    bcc xs
bcc ((MKCON l loc tag []):xs) | tag < 256 = do
    i <- get
    tell $ indent (level i) ++ creg l ++ " = NULL_CON(" ++ show tag ++ ");\n"
    bcc xs