my ($in,$out)=@ARGV;
open(IN,"<$in");
open(OUT,">$out");

print OUT "[\n";
foreach(<IN>){
  chomp;
  my @terms;
  @terms=split/\t/,$_;
  print OUT "    {\n";
  
  print OUT "       \"options\": {\n";
  print OUT "          "."\"color\":"." "."\"#996c04\"".","."\n";
  print OUT "          "."\"height\":"." "."30"."\n";
  print OUT "        }".","."\n";
  
  print OUT "       \"metadata\": {\n";
  print OUT "          "."\"Age\":"." "."\"$terms[0]\"".","."\n";
  print OUT "        }".","."\n";

  print OUT "       "."\"type\": "."\"bedGraph\"".","."\n";
  print OUT "       "."\"url\": "."\"http://regmedsrv1.wustl.edu/Public_SPACE/bmiao/Public_html/AD/bedgraph/$terms[1]".".bg.gz\"".","."\n";
  print OUT "       "."\"name\": "."\"$terms[1]\""."\n";
  print OUT "    },\n";

}
print OUT "]\n";