diff --git a/_drafts/cut-at-ten.md b/_drafts/cut-at-ten.md
new file mode 100644
index 0000000..e44ae39
--- /dev/null
+++ b/_drafts/cut-at-ten.md
@@ -0,0 +1,5 @@
+``` lisp
+(defun cut-at-ten ()
+  (while (re-search-forward "," (save-excursion (end-of-line) (point)) t 10)
+    (newline-and-indent)))
+```