diff --git a/scripts/t b/scripts/t
new file mode 100755
index 0000000..6e0a990
--- /dev/null
+++ b/scripts/t
@@ -0,0 +1,11 @@
+#!/bin/sh
+
+# compact version of tree
+res=$(tree --dirsfirst --noreport -L 2 -C "$@" \
+| awk '/^├|└/{l1=0} /^│/{l1+=1} {if (l1 <= 5){print $0} if(l1 == 6){print "│   ├── ..."}}' \
+| sed 's/ / /g')
+
+if test $(printf "%s\n" "$res" | wc -l) -gt $(tput lines)
+then printf "%s\n" "$res" | less -RSicX
+else printf "%s\n" "$res"
+fi