regexFunCall :: String -> Int -> String
regexFunCall fun n =
    fun ++ "[[:space:]]*" ++ "\\(" ++ args n  ++ "\\)"
        where args 0 = "[[:space:]]*"
              args 1 = "[^,]*"
              args x = "[^,]*," ++ args (x-1)
regexFunCall :: String -> Int -> String
regexFunCall fun n =
    fun ++ "[[:space:]]*" ++ "\\(" ++ args n  ++ "\\)"
        where args 0 = "[[:space:]]*"
              args 1 = "[^,]*"
              args x = "[^,]*," ++ args (x-1)
regexFunCall fun n =
    fun ++ "[[:space:]]*" ++ "\\(" ++ args n  ++ "\\)"
        where args 0 = "[[:space:]]*"
              args 1 = "[^,]*"
              args x = "[^,]*," ++ args (x-1)