Player de músicas compostas programando com a EMusic

          
mySong =
  Song
      [ Track FMSynth (MPattern (repeat 3 [ X, O, X, O, X, O, X, O ]))
      , Track AMSynth (MPattern (repeat 3 [ O, X, O, X, O, O, O, O ]))
      , Track MBSynth (MPattern (repeat 3 [ X, O, X, O, O, X, O, O ]))
      ]
          
        

          
anotherSong =
  Song
      [ Track MBSynth (MPattern (repeat 2 [ X, X, X, O, O, X ]))
      , Track MBSynth (MPattern (repeat 4 [ X, O, X, O, X, X ]))
      , Track AMSynth (MPattern (repeat 4 [ O, X, O, X, O, O ]))
      , Track FMSynth (MPattern (repeat 4 [ X, X, O, O, X, O ]))
      ]