#!/bin/csh
#
#  test how good the first and 15th of each month is for doing a Messier 
#  marathon 
#
foreach i (01 02 03 04 05 06 07 08 09 10 11 12)
 foreach j (01 15) 
  listgen "$i"/"$j"/1991 >& foo
  set b=`egrep '^JD' foo | wc | awk '{ print $1 }'`
  echo $i/$j yields $b objects out of 108 >> testmess.out
 end
end
