import Data.Char
import Control.Monad.Reader
import Control.Lens hiding ((<|), (|>), (:>), (:<))
import Data.Char
import Control.Monad.Reader
import Control.Lens hiding ((<|), (|>), (:>), (:<))
import Linear (V2(..), (^+^), (^-^), (*^), (^*))
import Data.Array.IArray
import Linear (V2(..), (^+^), (^-^), (*^), (^*))
import Data.Array.IArray