Worth making control names patternable?

[yaxu]

E.g.:

let cFP :: Double -> Pattern String -> Pattern Double
    cFP d ps = innerJoin $ (cF d) <$> ps