すごいHaskell本 baby.hs