import Control.Monad {- base -}
import Sound.OSC {- hosc -}
import Sound.OSC.Type.JSON {- hosc-json -}
import Sound.SC3 {- sc3 -}
import System.Environment {- base -}

wr :: Bundle -> IO ()
wr = putStrLn . encode_json_str . encode_bundle

main :: IO ()
main = do
  a <- getArgs
  case a of
    [nrt] -> do r <- readNRT nrt
                mapM_ wr (nrt_bundles r)
    _ -> error "json-nrt nrt-file"