translate (RawKeyEvent key scanCode keyState modKeys : RawCharEvent char : xs) =
    EventKey (KeyEvent key scanCode keyState modKeys (fromChar char)) :
    translate xs
translate (RawKeyEvent key scanCode keyState modKeys : RawCharEvent char : xs) =
    EventKey (KeyEvent key scanCode keyState modKeys (fromChar char)) :
    translate xs
translate (RawKeyEvent key scanCode keyState modKeys : RawCharEvent char : xs) =
    EventKey (KeyEvent key scanCode keyState modKeys (fromChar char)) :
    translate xs