Exists test

exists.p6

my %node;
%node<1,2> = 1;

for 0..3 -> Int $x {
  for 0..3 -> Int $y {
    my Int $cost;
say "$x,$y";
    $cost = %node<$x,$y>:exists ?? 100 !! 1;
say $cost;

  }
}