# HG changeset patch
# User HackEso <hackeso@esolangs.org>
# Date 1534850547 0
# Node ID f849e6edeb39f832beb3128856945d5bed0303da
# Parent  39cdfd040d023853b6979def8355ebc1f460f8c9
<oerjan> revert

diff -r 39cdfd040d02 -r f849e6edeb39 bin/toroman
--- a/bin/toroman	Tue Aug 21 11:21:47 2018 +0000
+++ b/bin/toroman	Tue Aug 21 11:22:27 2018 +0000
@@ -1,2 +1,2 @@
 #!/usr/bin/perl
-sub k{my$t;$t=~y/IVXLCDM/XLCDMEE/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$t~s/.*E.*/Number too large/;$t}$_=(shift=~/(\w+)/)[0];print k,$/
+sub k{my$t;$t=~y/IVXLCDM/XLCDMEE/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$t}$_=(shift=~/(\w+)/)[0];print k,$/