{-# LANGUAGE UnicodeSyntax #-}
-- | Usage: Hit /q/ to abort the match
module Main where

import SoccerFun.UI.GL
import Control.Monad
import System.Exit
import Prelude.Unicode
import Data.Binary

main ∷ IO ()
main = do
	(prog,args) ← initialise
	let file = case args of
		[file] → file
		notOne → error $ "Usage: " ⧺ prog ⧺ " <file.sft>"
	playTape =<< decodeFile file