1
( "M-<Tab>"
2
                            , toggleWS'
3
                                [ marshall s vw
4
                                | vw <- (map show [1 .. 9])
5
                                , s <- [x | x <- [0 .. nScreens], x /= currentScreen]
6
                                ]
7
                            )