#!/usr/bin/perl

qx/rm all.txt/;
qx/indent -br *.cpp/;
foreach $n (<*.cpp>) {
  open F , ">>all.txt";
 print F "\n========================================== $n \n";
 close F;
 qx/cat $n >> all.txt/;
 open F , ">>all.txt";
 print F "\n---- Output:------------------------------ \n";
 close F;
 $n=~s/.cpp/.e/;
 qx[./$n >>all.txt]; 
}
qx/a2ps -1 -B -o all.ps all.txt/;