important feature: banner

src/Quox.idr

@@ -11,6 +11,18 @@ import Data.Nat
 import Data.Vect
 
 
+export
+banner : String
+banner = #"""
+     _    ___,-´/
+    (.`--´ ∪    -´/   ___ ___ _____ __ __
+     \/\/--´`´`--´   / _ `/ // / _ \\ \ /
+      U ---,    /    \_, /\_,_/\___/_\_\
+          /--/  |     /_/
+         /--/   |
+
+  """#
+
 export
 tm : Term 1 2
 tm =
@@ -20,6 +32,6 @@ tm =
 
 main : IO Unit
 main = do
+  putStrLn banner
   prettyTerm tm
   prettyTerm $ pushSubstsT tm
-  putStrLn "\n:qtuwu:"