Update baby.hs