minor edits from sean

[talk-2018-dc18-gdr.git] / greyout

#!/usr/bin/perl -p
($l, $r, $depth) = m/^(4 \d+ )0( (\d+) .*)/ or
($l, $r, $depth) = m/^(2 \d+ \d+ \d+ )0( \d+ (\d+) .*)/ or
    next;
next unless $depth =~ m/6.$/;
$_ = $l."33".$r."\n";