readSample :: FilePath -> IO String
readSample filename = do
  let path = samplesBase </> filename
  readFile path
readSample :: FilePath -> IO String
readSample filename = do
  let path = samplesBase </> filename
  readFile path
readSample filename = do
  let path = samplesBase </> filename
  readFile path