sub median {
  my @sorted = sort { $a <=> $b } @_;
  ($sorted[$#sorted/2 + 0.1] + $sorted[$#sorted/2 + 0.6])/2;
}