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 "          "."\"assay\":"." "."\"$terms[1]\"".","."\n";
  print OUT "          "."\"mouse\":"." "."\"$terms[3]\"".","."\n";
  print OUT "          "."\"expose\":"." "."\"$terms[2]\"".","."\n";
  print OUT "          "."\"sex\":"." "."\"$terms[5]\"".","."\n";
  print OUT "          "."\"biosample\":"." "."\"$terms[4]\"".","."\n";
  print OUT "          "."\"life_stage\":"." "."\"$terms[6]\"".","."\n";
  print OUT "          "."\"lab\":"." "."\"$terms[0]\""."\n";
  print OUT "        }".","."\n";

  print OUT "       "."\"type\": "."\"bigWig\"".","."\n";
  print OUT "       "."\"url\": "."\"http://regmedsrv1.wustl.edu/Public_SPACE/bmiao/Public_html/TaRGET/browser_20210922/ATAC/$terms[7]"."_adjusted.bw\"".","."\n";
  print OUT "       "."\"name\": "."\"$terms[7]\""."\n";
  print OUT "    },\n";

}
print OUT "]\n";