# HG changeset patch
# User HackBot
# Date 1416000618 0
# Node ID 96373b259c9e3ce0f008a97b23957e67e956064c
# Parent  b0536f245afb3bf57476de97f74adf980d2bb2ea
<b_jonas> echo $\'#!/usr/bin/perl\\n\'\'sub k{my$t;$t=~y/IVXLC/XLCDM/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$r{$t}=$_;$t}print k((shift=~/(\\w+)/)[0]),$/\' > bin/toroman && chmod a+x bin/toroman

diff -r b0536f245afb -r 96373b259c9e bin/toroman
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/toroman	Fri Nov 14 21:30:18 2014 +0000
@@ -0,0 +1,2 @@
+#!/usr/bin/perl
+sub k{my$t;$t=~y/IVXLC/XLCDM/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$r{$t}=$_;$t}print k((shift=~/(\w+)/)[0]),$/