もう少し簡潔に出来るかも知れませんが、とりあえず動きます。