skat/Main.hs

module Main where

import Control.Monad.State

import Card
import Skat
import Reizen
import Operations


main :: IO ()
main = do
    env <- reizen
    (sgl, tm) <- evalStateT runGame env
    putStrLn $ "Single player has " ++ show sgl ++ " points."
    putStrLn $ "Team has " ++ show tm ++ " points."