sub p17 {
  printf "%.16e\n", $_;
}

sub ph {
  printf "%a\n", $_;
}