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