GEN: rework c-prodcedures