bcc ((PROJECTINTO r t idx):xs) = do
    i <- get
    tell $ indent (level i) ++ creg r ++ " = GETARG(" ++ creg t
            ++ ", " ++ show idx ++ ");\n"
    bcc xs
bcc ((PROJECTINTO r t idx):xs) = do
    i <- get
    tell $ indent (level i) ++ creg r ++ " = GETARG(" ++ creg t
            ++ ", " ++ show idx ++ ");\n"
    bcc xs
bcc ((PROJECTINTO r t idx):xs) = do
    i <- get
    tell $ indent (level i) ++ creg r ++ " = GETARG(" ++ creg t
            ++ ", " ++ show idx ++ ");\n"
    bcc xs