selectSurface :: forall a. [a] -> KeyPress -> a
selectSurface surfaces KeyUp = surfaces !! 1
selectSurface :: forall a. [a] -> KeyPress -> a
selectSurface surfaces KeyUp = surfaces !! 1
selectSurface surfaces KeyUp = surfaces !! 1