use v6;

multi sub p ($s){
  print $s;
}

multi sub p (Int $i) {
  printf("0x%x", $i);
}

my Str %addr{Int} = ( 0 => "Header", 512 => "stuff");

for %addr.kv -> $k, $v {
  p($k);
  p($v);
  p("\n");
}


root@testperl6:~/piko# perl6 nyo.p6
0x200stuff
0x0Header