Expose SubProgam.Type (idents)