Add basic prompt

src/Dodge/Debug/Flag.hs

@@ -0,0 +1,3 @@
+module Dodge.Debug.Flag
+    where
+

src/Dodge/Debug/Flag/Data.hs

@@ -0,0 +1,10 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Debug.Flag.Data
+    where
+import Control.Lens
+data DebugFlags = DebugFlags
+    { _noClip :: Bool
+    , _displaySecondsPerFrame :: Bool
+    }
+makeLenses ''DebugFlags

src/Dodge/Debug/Terminal.hs

@@ -0,0 +1,10 @@
+module Dodge.Debug.Terminal
+    where
+import Dodge.Data
+import Dodge.Debug.Flag.Data
+
+import Control.Lens
+
+applyTerminalString :: String -> World -> World
+applyTerminalString "NOCLIP" w = w & debugFlags . noClip %~ not
+applyTerminalString _ w = w