content: 
  module Model where
  
  -- ─── IMPORTS ────────────────────────────────────────────────────────────────────
  
  import           Data.Map ( Map )
  import qualified Data.Map as Map
  import           Data.Scientific
  import           Data.Number.Fixed
  
  -- ─── PROTOTYPE ──────────────────────────────────────────────────────────────────
  
  type ScopePrototype = Map String Double
  
  -- ─── MODEL ──────────────────────────────────────────────────────────────────────
  
  data Model = Model { history         :: [ String ]
                     , computedHistory :: [ Double ]
                     , prototype       :: ScopePrototype
                     } deriving ( Show )
  
  -- ─── INITIAL MODEL ──────────────────────────────────────────────────────────────
  
  initalModel = Model { history           = [ ]
                      , computedHistory   = [ ]
                      , prototype         = Map.fromList [ ( "ans", 0 ) ]
                      }
  
  -- ────────────────────────────────────────────────────────────────────────────────
  