$,=$/;print glob(($_='{,C,CC,CCC,CD,D,DC,DCC,DCCC,CM}').y/CDM/XLC/r.y/CDM/IVX/r),M