# 階乗の計算
r <- 1
for (x in 1 : 10) {
  r <- r * x
}
print(r)