mpc clone in haskell