{-# LANGUAGE TypeFamilies #-}
module Main where

import System.Environment

import PlayTakBot
import TakkyCore

main = do
    args <- getArgs
    if length args /= 2
        then error "usage: takky <username> <password>"
        else return ()
    let username : password : [] = args
    runBot $ Takky username password