diff --git a/shell-scripts.d/full-canticles.sh b/shell-scripts.d/full-canticles.sh
new file mode 100755
index 0000000..33a15ef
--- /dev/null
+++ b/shell-scripts.d/full-canticles.sh
@@ -0,0 +1,23 @@
+#!/bin/bash
+
+# Make full canticle files from comedy-xml.d
+
+xml_dir=../comedy-xml.d
+
+canticles=( 'inferno' 'purgatorio' 'paradiso' )
+
+for canticle in "${canticles[@]}";
+do
+	canticle_dir="$xml_dir/$canticle-xml.d/"
+	canticle_complete=$xml_dir"/$canticle-complete.xml"
+	cp ./canticle-base.xml $canticle_complete
+	sed -i "s/CANTICLE/The\ Complete\ ${canticle^}/" $canticle_complete
+	for canto in $canticle_dir*;
+	do
+		canto_text="$(xmlstarlet sel -t -c "_:TEI/_:text/_:canto" $canto)"
+		echo "$canto_text" >> $canticle_complete
+	done
+	echo -e "\t</text>" >> $canticle_complete
+	echo "</TEI>" >> $canticle_complete
+	sed -i 's/<canto\ xmlns=\"http:\/\/www.tei-c.org\/ns\/1.0\"/\t\t<canto/g' $canticle_complete
+done