snprintf (as_typename, INSTR_DEFAULT_STR_SIZE, "L%d", newContainer->level);
if (newContainer->father){
newContainer->type = PJ_type_get_or_null (as_typename, newContainer->father->type);
snprintf (as_typename, INSTR_DEFAULT_STR_SIZE, "L%d", newContainer->level);
if (newContainer->father){
newContainer->type = PJ_type_get_or_null (as_typename, newContainer->father->type);