define(a,`patsubst(translit(`$1',IVXLC,XLCDM),` \w*',\&\&I\&II\&III\&IV\&V\&VI\&VII\&VIII\&IX)')substr(a(a(a(` '))),1) M
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page