emptyStackSet :: StackSet String a sid
emptyStackSet =
  StackSet Nothing
           []
           (fmap (\i ->
                    (Workspace (show i)
                               (2 ^ i)
                               (TreeZipper (Tree horizontalLayout Nothing)
                                           [])))
                 [0 :: Int .. 1])
emptyStackSet :: StackSet String a sid
emptyStackSet =
  StackSet Nothing
           []
           (fmap (\i ->
                    (Workspace (show i)
                               (2 ^ i)
                               (TreeZipper (Tree horizontalLayout Nothing)
                                           [])))
                 [0 :: Int .. 1])
emptyStackSet =
  StackSet Nothing
           []
           (fmap (\i ->
                    (Workspace (show i)
                               (2 ^ i)
                               (TreeZipper (Tree horizontalLayout Nothing)
                                           [])))
                 [0 :: Int .. 1])