module Main where

import System.Environment (getArgs)
import ZMachine.Startup (startStory)

main :: IO ()
main = do [story] <- getArgs
          startStory story
          return ()