module Main where

import Suck
import Spew
import System.Environment

-- maximally naive approach to command line input
main :: IO ()
main = do
    [input] <- getArgs
    if input == "load-model"
        then suckDefaultsToFile
        else spew (read input) >>= putStrLn
