[xmonad] Numbered tabs in IM.Tabbed

I've made some code to jump around tabs in a more comfortable way: curstack :: W.StackSet i l a sid sd -> W.Stack a curstack s = fromJust $ W.stack $ W.workspace $ W.current s focused s = (\(Stack _ ls rs) -> length ls) $ curstack s tabJump :: Int -> X () tabJump x = withWindowSet (\s -> (\c -> focusNth $ if c `mod` 10 == x then c + 10 else x) $ focused s) and "[((modm .|. mod1Mask, k), tabJump i) | (i, k) <- zip [0..9] [xK_0 .. xK_9]]" to the keybindings Can i make the tabs' labels show the number of the window in the front of the label without modifying xmonad-contrib?