source("http://www7b.biglobe.ne.jp/~homunculus/Rsource/cc.R")