1 awk '

     2   {

     3     if (split($0,x,"#")) {

     4       f = split(x[1],y)

     5       if (f >= 2) {

     6         if (split(y[2],z,"/") >= 2) {

     7           a = "@" z[1] "/" z[2]

     8           print "+" length(a) "," length(y[1]) ":" a "->" y[1]

     9           for (i = 1;i <= f;i += 1) {

    10             if (i != 2) {

    11               a = y[i] "/" z[2]

    12               print "+" length(a) "," length(z[1]) ":" a "->" z[1]

    13             }

    14           }

    15         }

    16       }

    17     }

    18   }

    19   END {

    20     print ""

    21   }

    22 ' | HOME/bin/cdbmake "$@"