let
proj_marks proj = fst proj