perl -lpe '($c,$lines)=split /\t/;
  if($lc and $c){ $d=$c^$lc; $sc=$d=~y/\x0/#/;}
  $lc=$c; s/^/$sc\t/' line.histgram > line.similarity