\define roman-20() I II III IV V VI VII VIII IX X XI XII XIII XIV XV XVI XVII XVIII XIX XX
<$list filter="[range[1,20]]" variable=decimal>
<$set name=roman-num filter=<<roman-20>> select={{{ [<decimal>subtract[1]] }}}>
<<decimal>>=<<roman-num>><br>
</$set>
</$list>