diff --git a/clean.scm b/clean.scm
new file mode 100755
index 0000000..6931dd2
--- /dev/null
+++ b/clean.scm
@@ -0,0 +1,6 @@
+#!/usr/local/bin/csi
+(use system)
+(load "keep-the-records.system")
+(clean-system ktr)
+(print "\nSystem clean")
+(exit)