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