X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=appendix-a6.git;a=blobdiff_plain;f=spi2loose;fp=spi2loose;h=996550277fb4023839cc68fbb0628d97898cc604;hp=0000000000000000000000000000000000000000;hb=2ae008ee988080047f9a5576bc6f8a702ced2470;hpb=a11536b183032286d08363afa8f0d1fbd124b979

diff --git a/spi2loose b/spi2loose
new file mode 100755
index 0000000..9965502
--- /dev/null
+++ b/spi2loose
@@ -0,0 +1,8 @@
+#!/usr/bin/perl -w
+use strict;
+while (<>) {
+      m/^(\w+) (\w+)$/ or die "$_ ?";
+      print "$1 : ".(join " ", split //, $2)."\n" or die $!;
+}
+      
+