C87 で頒布したJulialang 本の中に出てくるサンプルコードです