awk '{print $1"__"substr($2,16,1)}' Diets.dat | sort -u > gxdiet.u

awk '$1=="gxdiet" {print $3}' vce.sol | \
paste -d " " gxdiet.u - | \
sed "s/__/ /g" | awk '$2=="H" {print $1, $3}' > high

awk '$1=="gxdiet" {print $3}' vce.sol | \
paste -d " " gxdiet.u - | \
sed "s/__/ /g" | awk '$2=="M" {print $1, $3}' > medium

awk '$1=="gxdiet" {print $3}' vce.sol | \
paste -d " " gxdiet.u - | \
sed "s/__/ /g" | awk '$2=="L" {print $1, $3}' > low

join high medium | join - low > gxdiet.sol

echo Clone High Medium Low > DietsPermut.dat
awk '{print $1, $2}' clone2gene2go.out | sort | \
join - gxdiet.sol | awk '{print $1"_"$2, $3, $4, $5}' >> DietsPermut.dat

rm gxdiet.u high medium low