keyboard :: KeyboardMouseCallback
keyboard (Char '\27') Down _    _ = exitWith ExitSuccess
keyboard :: KeyboardMouseCallback
keyboard (Char '\27') Down _    _ = exitWith ExitSuccess
keyboard (Char '\27') Down _    _ = exitWith ExitSuccess