myWorkspaces            :: [String]
myWorkspaces            = clickable . (map dzenEscape) $ [" ^i(/home/peter/Downloads/term.xbm) 1","2","3","4","5","6","7","8","9","0"]
  where clickable l     = [ "^ca(1,xdotool key super+" ++ show (n) ++ ")" ++ ws ++ "^ca()" |
                            (i,ws) <- zip [1..] l,
                            let n = i ]