for i in $(cat list.txt);
do
        unzip ../$i
        for j in $(ls *.3D);
        do
                ./extract_door $j >>door.txt
        done
        rm *.3D
        rm *.1D
        rm *.zip
done