interactive :: Store s => (Save s,Save s) -> IO ()
interactive (s1,s2) = let
    i = runInputT setting $ withInterrupt $ ev empty
  in void $ runStateT i $ Status s1 s2
interactive :: Store s => (Save s,Save s) -> IO ()
interactive (s1,s2) = let
    i = runInputT setting $ withInterrupt $ ev empty
  in void $ runStateT i $ Status s1 s2
interactive (s1,s2) = let
    i = runInputT setting $ withInterrupt $ ev empty
  in void $ runStateT i $ Status s1 s2