bcc ((PROJECT l loc a):xs) = do
    i <- get
    tell $ indent (level i) ++ "PROJECT(vm, " ++ creg l ++ ", "
                ++ show loc ++ ", " ++ show a ++ ");\n"
    bcc xs
bcc ((PROJECT l loc a):xs) = do
    i <- get
    tell $ indent (level i) ++ "PROJECT(vm, " ++ creg l ++ ", "
                ++ show loc ++ ", " ++ show a ++ ");\n"
    bcc xs
bcc ((PROJECT l loc a):xs) = do
    i <- get
    tell $ indent (level i) ++ "PROJECT(vm, " ++ creg l ++ ", "
                ++ show loc ++ ", " ++ show a ++ ");\n"
    bcc xs