module Main where
import System.Environment (getArgs)
import FST
import JFF

main = do
  jffEnc <- readFile "encode.jff"
  jffChan <- readFile "channel.jff"
  jffDec <- readFile "decode.jff"
  let Just enc  = readFST jffEnc
  let Just chan = readNFST jffChan
  let Just dec  = readFST jffDec
  let fst = (fst2nfst enc) `composeNFST` chan `composeNFST` (fst2nfst dec)
  writeFile "nfst.jff" (writeNFST fst)