import Data.List
import Language.Symantic.Parsing as Sym
import Data.Either
import Data.String
import Data.Functor.Identity
import Text.Megaparsec
import Control.Applicative
import Prelude
import qualified Hcompta as H
import Data.Functor.Compose
import qualified Data.MonoTraversable as MT
import qualified Data.Text.Lazy    as TL
import qualified Data.Text.Lazy.IO as TL
:set -XFlexibleContexts
:set -XOverloadedStrings