replaceStack :: All -> Stack -> All
replaceStack (All fc s) newStack = (All fc newStack)
replaceStack :: All -> Stack -> All
replaceStack (All fc s) newStack = (All fc newStack)
replaceStack (All fc s) newStack = (All fc newStack)