IORefを使った合計プログラム
sだけIORefを使うように改造する