module Main where
import System.Environment (getArgs)
import HW42 (test)
import JFF

main = do
  [filename1, filename2] <- getArgs
  fstJFF <- readFile filename1
  dfaJFF <- readFile filename2
  let (Just fst) = readFST fstJFF
  let (Just dfa) = readDFA dfaJFF
  print (test fst dfa)