# HG changeset patch
# User HackEso <hackeso@esolangs.org>
# Date 1534850602 0
# Node ID 359ed0766a702539d8148a18cb1c4cf08afa115f
# Parent  f849e6edeb39f832beb3128856945d5bed0303da
<oerjan> sled bin/toroman//s,g;,g;$t=~s/.*E.*/Number too large/;,

diff -r f849e6edeb39 -r 359ed0766a70 bin/toroman
--- a/bin/toroman	Tue Aug 21 11:22:27 2018 +0000
+++ b/bin/toroman	Tue Aug 21 11:23:22 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}$_=(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=~s/.*E.*/Number too large/;$t}$_=(shift=~/(\w+)/)[0];print k,$/