perl $setu/bin/sys/common/printinput.pl $1 > pruneinput perl $setu/bin/sl/pruning/pruning.pl --path=$setu/bin/sl/pruning --resource=$setu/data_bin/sl/pruning/mapping.dat --input=pruneinput
