        KeycodeDown -> nextMenuItemST
        KeycodeUp -> prevMenuItemST
        KeycodeReturn -> doMenuActionST
        _ -> return ()

handleGameEvent d = do
    g <- get
    case keysymKeycode $ keyboardEventKeysym d of 
        KeycodeLeft -> put $ g {snakeDir = V2 (-1) 0}
        KeycodeRight -> put $ g {snakeDir = V2 1 0}
        KeycodeDown -> put $ g {snakeDir = V2 0 1}