#!/usr/bin/perl -w
# By Marc MERLIN <marc_soft@merlins.org>

use strict;

die "$0 < infile > outfile\n" if $#ARGV != -1;

while ($_=<STDIN>)
{
    next if (/^#/);
    next if (/^\s*$/);

    /^(.+?)\s*:\s*(.+?)\s*$/ or die "Can't split $_\n";

    print "+".length($1).",".length($2).":$1->$2\n";
}

# cdbmake requires an extra newline...
print "\n";