import System.Environment (getArgs)
import System.Exit (exitFailure)
import Jbobaf.Jitro
import Jbobaf.Vlatai

main = do
 argv <- getArgs
 luj <- if null argv
	then putStrLn "lo lujvo lonu katna cu jai sarcu" >> exitFailure
	else return (head argv)
 case runReaderT (jvokatna luj) defaults of
  Left x -> putStrLn $ "na drani lujvo: " ++ show x
  Right rafs -> mapM_ putStrLn rafs
