#!/usr/bin/perl

my %files;

print "digraph G {\n";
print "{ rank = same; MonadState; DHSCore; DHSURI; ObjIO; TCP; MuxCore; DHSOptions;};\n";

while (<>) {
  if ((/(\w*)\.o : .*\/(\w*)\./) && ($1 ne $2) && ($2 ne "ConcurrentDebugLess") && ($1 ne "MinDistributed")){
    if ($files{"$1$2"} != 1) {
      print "$1 -> $2\n";
      $files{"$1$2"} = 1;
    }
  }
}

print "}";