

# create exs.lisp, the lisp format of the examples

cut -d, -f1-57 promoters.data.orig >tempfile1
cut -d, -f58 promoters.data.orig >tempfile2
sed 's/,/ /g' tempfile1 >tempfile3
paste tempfile2 tempfile3 >tempfile1
sed 's/^/  (/' tempfile1 >tempfile2
sed 's/$/)/' tempfile2 >tempfile1
cat header tempfile1 footer > exs.lisp

rm tempfile1
rm tempfile2
rm tempfile3

# run the tgci1 translator

cut -d, -f1-57 promoters.data.orig >tempfile1
cut -d, -f58 promoters.data.orig >tempfile2
lisp4.1 < tgci1-input > tempfile3
sed 's/,$//' tgci1-output > tempfile4
paste -d, tempfile1 tempfile4 tempfile2 > promoters.data.new

rm tempfile1
rm tempfile2
rm tempfile3
rm tempfile4
rm tgci1-output
rm exs.lisp

