modified:   baby.hs