define(a,`patsubst(translit(`$1',IVXLC,XLCDM),`
\w*',\&\&I\&II\&III\&IV\&V\&VI\&VII\&VIII\&IX)')substr(a(a(a(`
'))),1)
M