original http://i.loveruby.net/ja/stdhaskell/