+get-list() {
+ res=`src/get-all-below $level $1`
+ if [ -n "$res" -a -d debug ]; then
+ cat $res | src/filter | sort -u > debug/$level.l.$1
+ fi
+ echo $res
+}
+
+cap() {
+ dsr=$1
+ shift
+ if [ -d debug ]; then
+ cat | sort -u > debug/$level.$dsr.in
+ cat debug/$level.$dsr.in | "$@" | sort -u > debug/$level.$dsr.out
+ comm -23 debug/$level.$dsr.out debug/$level.$dsr.in > debug/$level.+.$dsr
+ cat debug/$level.$dsr.out
+ rm debug/$level.$dsr.out debug/$level.$dsr.in
+ else
+ "$@"
+ fi
+}
+
+if [ $level -ne $max_level ]