sub get_long_at {
  my $addr=shift;
  printf "get_long_at(0x%x)\n", $addr;
  my $data=unpack("P4", $addr);
  printf "Got it\n";
  return unpack("L", $data);
}