module Main where

import System.IO
import System.FilePath.Find

mp3files = do
  files <- find always (extension ==? ".mp3") "/home/user/Music"
  return files