main.p6

my @lines = 'input.txt'.IO.lines;

my @stack;
for @lines -> $line {
  for $line.comb.kv -> $i, $v {
    if $v eq '(' {
      @stack.push(($i, $v));
    } elsif $v eq ')'{
      if @stack.elems > 0 {
        if @stack[*-1][1] eq '(' {
          @stack.pop();
        } else {
          @stack.push(($i, $v));
        }
      } else {
        say "wrong ($i, $v)";
      }
    }
  }
}

say "@stack\n";