module Main where

import qualified Sound.ALSA.Sequencer as Alsa

main :: IO ()
main =
    putStrLn "started..." >>
    Alsa.withMIDIEvents
       "mididump" "mididump-listen"
       (putStr . unlines . map show)