module TestStdStack2 import StdStack2 listStack :: Stack2 a listStack = { stack = [], ... } charStack :: Stack2 Char charStack = { stack = "", ... }