diff --git a/.zaliases b/.zaliases
index 38ca463..32e445f 100644
--- a/.zaliases
+++ b/.zaliases
@@ -102,3 +102,9 @@ extract () {
     echo "\`$1' is not a valid file"
   fi
 }
+
+pacclean () {
+    while ! [ "$(sudo pacman -Qdtq)" = "" ]; do
+	sudo pacman -Rn $(sudo pacman -Qdtq)
+    done
+}