merge aoc lib and prelude

src/Lib/Compile.idr

@@ -168,7 +168,7 @@ jsString str = text (show str)
 
 keywords : List String
 keywords = [
-  "var", "true", "false", "let", "case", "switch", "if", "then", "else",
+  "var", "true", "false", "let", "case", "switch", "if", "then", "else", "String",
   "function", "void", "undefined", "null", "await", "async", "return", "const"
 ]
 

src/Main.idr

@@ -58,7 +58,7 @@ processModule base stk name = do
   top <- get
   let False := elem name top.loaded | _ => pure ""
   modify { loaded $= (name::) }
-  let fn = base ++ "/" ++ name ++ ".newt"
+  let fn = if base == "" then name ++ ".newt" else base ++ "/" ++ name ++ ".newt"
   Right src <- readFile $ fn
     | Left err => fail (show err)
   let Right toks = tokenise src