Put program into a runnable state, and break the cycle that was discovered

app/Main.hs

@@ -1,7 +1,17 @@
 module Main(main) where
 
+import CAStore.Command (runCommand)
 import CAStore.Config (finalConfig)
-import CAStore.Program (runProgram, defaultProgram)
+import CAStore.Program (Program, runProgram, getCommand)
+import CAStore.Program.Storage (initialise)
+import Control.Monad.IO.Class (liftIO)
 
 main :: IO ()
 main = finalConfig >>= flip runProgram defaultProgram
+
+defaultProgram :: Program ()
+defaultProgram = do
+  initialise
+  getCommand >>= \case
+    Nothing  -> liftIO $ putStrLn "ERROR: Invalid command"
+    Just cmd -> runCommand cmd