Address issues with unify's case tree in idris

Clean up some stuff in prelude
Add parser for where

aoc2023/Day1.newt

@@ -59,7 +59,7 @@ runFile fn =
   let text = readFile fn in
   log fn >>
   log "part1" >>
-  log (part1 text (digits1 ∘  unpack)) >>
+  log (part1 text (digits1 ∘ unpack)) >>
   log "part2" >>
   log (part1 text (digits2 ∘ unpack)) >>
   log ""

aoc2023/Lib.newt

@@ -159,4 +159,4 @@ map f (x :: xs) = f x :: map f xs
 
 infixl 9 _∘_
 _∘_ : {A B C : U} -> (B -> C) -> (A -> B) -> A -> C
-(f . g) x = f ( g x)
+(f ∘ g) x = f (g x)