Done with chapter 4 in baby.hs