add baby.hs first functions in haskell