appendCustom' :: CustomStack a -> CustomStack a -> CustomStack a
appendCustom' xs ys = foldr Cons ys xs
appendCustom' :: CustomStack a -> CustomStack a -> CustomStack a
appendCustom' xs ys = foldr Cons ys xs
appendCustom' xs ys = foldr Cons ys xs