original code http://i.loveruby.net/ja/stdhaskell/ - qtamaki/stdhaskell-samples