昔書いたものですが、参考までにアップしておきました。ここをご覧下さい。