#! /usr/bin/perl

while(<>) {
  $n = $. < 10 ? "0".$. : $.;
  s/=>//g;
  push @all, "texitree ps <<END > animat$n.ps";
  push @all, $_;
  push @all, "END";
}
print join "\n", @all, "\n";