commandList :: String -> String -> String -> Int -> [String]
commandList path command arg_suffix n = 
   zipWith ( (++) . (++ " ") ) (repeat command) (listOfFiles path arg_suffix n)
commandList :: String -> String -> String -> Int -> [String]
commandList path command arg_suffix n = 
   zipWith ( (++) . (++ " ") ) (repeat command) (listOfFiles path arg_suffix n)
commandList path command arg_suffix n = 
   zipWith ( (++) . (++ " ") ) (repeat command) (listOfFiles path arg_suffix n)