#!/usr/bin/perl
use strict;
use warnings;

my $indent = 0;
while (<>) {
    if (/^rust: ">>/) {
        $indent += 1;
    } elsif (/^rust: "<</) {
        $indent -= 1;
    }

    printf "%03d  %s%s", $indent, ("  " x $indent), $_;
}