runStructurue s = runIdentity $ (runStateT $ runWriterT s) startState
  where startState = emptyGS 
runStructurue s = runIdentity $ (runStateT $ runWriterT s) startState
  where startState = emptyGS 
runStructurue s = runIdentity $ (runStateT $ runWriterT s) startState
  where startState = emptyGS 