let proj_marks proj = fst proj