import PostscriptLines (harmonyToPs)
import Harmony (tomidi)
import Midi (tofile)
import HarmonyParser (parseHarmony)
import System

main = do [input, outmidi, outps] <- getArgs
          infile <- readFile input
          case parseHarmony infile of
            Left error -> print error
            Right song -> do writeFile outmidi (tofile 80 . tomidi 80 $ song)
                             writeFile outps (harmonyToPs song)