#! /bin/tcsh
set sdir = /data/21/herp/reading_sheets
set ddir = /data/dc6/ftp/pub/herp/TRANSCRIBED_READING_SHEETS
foreach f (`ls $sdir | grep 19`)
  mkdir ${ddir}/$f
  cp -p ${sdir}/${f}/*.p ${ddir}/$f
end
#