xmonad convert submap block

myRdesktop      = "~/.xmonad/bin/remote-rdp.sh "

-- TODO: Convert ths to
(((mod .|. controlMask), xK_r), submap . M.fromList $
   [ ((0, xK_1), spawn (myRdesktop ++ " 1"))
     , ((0, xK_2), spawn (myRdesktop ++ " 2"))
     , ((0, xK_3), spawn (myRdesktop ++ " 3"))
     , ((0, xK_4), spawn (myRdesktop ++ " 5"))
     , ((0, xK_4), spawn (myRdesktop ++ " 6"))
     , ((0, xK_4), spawn (myRdesktop ++ " 7"))
     , ((0, xK_4), spawn (myRdesktop ++ " 8"))
   ] )


-- THIS
--- DONE; works!!
 , (((mod4Mask .|. controlMask), xK_r), submap . M.fromList $
   [ ((0, k), spawn (myRdesktop ++ " " ++ show i))
   | (i, k) <- zip [1..9] [xK_1 .. xK_9]
   ] )