commit a0e38d62445d4782793047618a75f4f3d3b9c666
Author: Simon Watson <spesk@pm.me>
Date:   Tue Dec 21 14:33:40 2021 -0500

    cls util

diff --git a/fin-lisp.lisp b/fin-lisp.lisp
index 2d042f1..0ed9ab5 100644
--- a/fin-lisp.lisp
+++ b/fin-lisp.lisp
@@ -98,6 +98,10 @@
       (format t "Invalid input: ~a ~%" ,error-string)
       (values 0 e))))
 
+;; Util screen clearer
+(defun cls()
+  (format t "~A[H~@*~A[J" #\escape))
+
 ;; Entry point
 (defun main ()
   (format t "~%")