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

    -- Foo

    -- Bar

    ]