main :: IO ()
main =
  let (s, e) = mkSpecStateEnv
   in RWS.void $ RWS.evalRWST server e s
main :: IO ()
main =
  let (s, e) = mkSpecStateEnv
   in RWS.void $ RWS.evalRWST server e s
main =
  let (s, e) = mkSpecStateEnv
   in RWS.void $ RWS.evalRWST server e s