#!/usr/bin/perl -w
#
# Indent Atom4 AI logfiles so that it's easier to read!
#

$indent=0;
while (<>) {
  /\>\>/ && !/PRUNE/ && $indent--;
  print "   "x$indent, $_;
  /\<\</ && $indent++;
}