newNames :: [(String, String)]
newNames =
    let (*) = flip (,)
     in [ "Control" * "Monad"
    -- Foo

    -- Bar
        ]