Add Tour.newt sample and make it the default.

Improvements to editor support.

aoc2023/Day1.newt

@@ -11,9 +11,6 @@ digits1 (c :: cs) = let x = ord c in
       False => digits1 cs
     False => digits1 cs
 
--- This happens with Char and not Nat, but why is Char working at all?
--- I suspect it will fix if PatLit is implemented correctly
-
 tail : {a : U} -> List a -> List a
 tail Nil = Nil
 tail (x :: xs) = xs
@@ -51,8 +48,8 @@ part1 text digits =
   let nums = map combine $ map digits lines in
   foldl _+_ 0 nums
 
+-- Hack from before I had support for typeclasses
 infixl 1 _>>_
-
 _>>_ : {A B : U} -> A -> B -> B
 a >> b = b