#!perl -p
%x=(I
,1,IV
,4,V
,5,IX
,9,X
,10);$a="(X{0,3}(?:V?I{1,3}|I?V|IX)|X{1,3})"x3
;m*^$a,$a,$a$(?{@z=map"$$_",0..9;$r|=!grep$x-$_,map{$x=eval s/./ $z[$&]/gr
=~s/IX
|IV
|\S/+$x{$&}/gr
}123,456,789,147,258,369,159,357;++$-})^*;$_="$-,$r"
IyFwZXJsIC1wCiV4PShJLDEsSVYsNCxWLDUsSVgsOSxYLDEwKTskYT0iKFh7MCwzfSg/OlY/SXsxLDN9fEk/VnxJWCl8WHsxLDN9KSJ4MzttKl4kYSwkYSwkYSQoP3tAej1tYXAiJCRfIiwwLi45OyRyfD0hZ3JlcCR4LSRfLG1hcHskeD1ldmFsIHMvLi8gJHpbJCZdL2dyPX5zL0lYfElWfFxTLyskeHskJn0vZ3J9MTIzLDQ1Niw3ODksMTQ3LDI1OCwzNjksMTU5LDM1NzsrKyQtfSleKjskXz0iJC0sJHIiCg==