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

print OUT "[\n";
foreach(<IN>){
  chomp;
  my @terms;
  @terms=split/_/,$_;
  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\":"." "."\"Histone\"".","."\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[2]\""."\n";
  print OUT "        }".","."\n";

  print OUT "       "."\"type\": "."\"bigWig\"".","."\n";
  print OUT "       "."\"url\": "."\"https://regmedsrv1.wustl.edu/Public_SPACE/zhangbo/Public_html/TaRGET_IAW/Histone/$_".".bw\"".","."\n";
  print OUT "       "."\"name\": "."\"$terms[7]"."\"$terms[4]\""."\n";
  print OUT "    },\n";

}
print OUT "]\n";