Wish Rh8 MergeAll cylinder and extruded faces

I wish to have Pascal’s script for merging cilindrical and extruded faces as a standard tool in Rhino V8