:


if(test $# -lt 1) then
  echo " This command needs at least one parameter, 
           which indicates the number of model"
  exit 1
fi

modeln=$1
model=""
while(test $modeln  -ne 1  ) 
do 
  modeln=`expr $modeln  - 1`
  model=$model"["
done 


#Exclude to exlcude diagrams with virtual particles from the $Exclude list


read Process

#read Process #It is expected to read a process  string like "e1,E1->e2,E2"

while( test  "$Process" )
do

  rm results/* tmp/*   # to start from the beginning

  com="$model{{$Process{{[{[[[[{]]]{[[[{0"
  bin/s_calchep -blind "$com" 


#  YOUR CHECK BEGIN
#
     echo =========================
     echo $Process

   if(test -f r-session) then 
      rm r-session
   fi 
   
   if(test -f message) then 
      rm message
   fi

   cat  bin/../utile/check.red | reduce >r-session
   grep  -i heap r-session
   if (test ! -f message) then
        echo  REDUCE can not calculate $Process 
   else 
        cat message 
   fi

#
# YOUR CHECK END


  read Process
done

rm  r-session  message
