windowProperty32 :: String -> Window -> M (Maybe [CLong])
windowProperty32 s w = do
    (C {display}) <- ask
    a <- getAtom s
    liftIO $ getWindowProperty32 display a w
windowProperty32 :: String -> Window -> M (Maybe [CLong])
windowProperty32 s w = do
    (C {display}) <- ask
    a <- getAtom s
    liftIO $ getWindowProperty32 display a w
windowProperty32 s w = do
    (C {display}) <- ask
    a <- getAtom s
    liftIO $ getWindowProperty32 display a w