Update Appendable2.hs