<geekosaur (@geekosaur:matrix.org)> `additionalKeysP`
           [ (otherModMasks ++ "M-" ++ key, action tag)
           | (tag, key) <- zip workspacen (words "1 2 3 4 5 6 7 8 9 0 - = <F1> <F2> <F3> <F4>")
           , (otherModMasks, action) <- [("", windows . W.greedyView)
                                        ,("S-", windows . W.shift)
                                        ,("C-", windows . copy)
                                        ]
           ]