import Control.Monad
import qualified Sound.Analysis.Meapsoft as M
import System.Environment

main :: IO ()
main = do
  a <- getArgs
  unless (length a == 1)
         (error "analysis-file")
  let [fn] = a
  (Right h) <- M.read_header fn
  putStrLn (show h)